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()