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)
    if not (title:find("^Need bridge ") or title:find("^A bridge ") or title:find("^A master bridge ") or hasNTTitle("Invalidate "..id)) then
      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
end

result = {}
table.insert(result, "Shortened reference tree for "..startID.." (without bridge stuff & invalidated):\n")
printReferenceTree(startID, "", {}, result)
result = table.concat(result, "\n")
print("\n"..result)
return result

Began life as a copy of #528