get("#175") -- tableToString
get("#349") -- table functions

startID = input or error("Need snippet ID as input")

function printReferenceTree(id, indent, seen, result)
  if seen[id] then
    table.insert(result, indent..id.." (see above)")
  else
    title = getSnippetTitle(id)
    table.insert(result, indent..id.. " - "..title)
    seen[id] = true
    
    local refs = getTitleReferences(id)
    --print("Refs: "..tableToString(refs))
    for r in all(refs) do
      printReferenceTree(r, indent.."  ", seen, result)
    end
  end
end

result = {}
table.insert(result, "Full reference tree for "..startID..":\n")
printReferenceTree(startID, "", {}, result)
result = table.concat(result, "\n")
print("\n"..result)
return result

Began life as a copy of #526