!759

concepts.

p {
  loadConceptsFrom("#1005337");
  
  Concept cyclic = cnew("Cyclic");
  cset(cyclic, "next", cyclic);
  cnew("Actually", what := cyclic);
  
  for (Concept c : list("Actually")) {
    new IdentityHashMap seen;
    print(renderConcept(c));
    follow(c, 0, seen);
  }
}

svoid follow(Concept c, int indent, IdentityHashMap seen) {
  seen.put(c, c);
  indent += 2;
  L<S> names = dynGetRefNames(c);
  for (S name : names) {
    Concept val = cast cget(c, name);
    bool isSeen = seen.containsKey(val);
    printIndent(indent, name + ": " + renderConcept(val) + (isSeen ? " [seen]" : ""));
    if (!isSeen)
      follow(val, indent, seen);
  }
}