save unused topological-sort.lisp