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

startID = "#2000044"

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

print("\nReference tree for "..startID..":\n")

printReferenceTree(startID, "", {})
  
print()

Began life as a copy of #526