(index ("graph-cycles-fold" 0))
(def (sig (procedure "graph-cycles-fold:: G F INITIAL -> STATE" (id graph-cycles-fold))) (p "graph cycles iterator; every cycle is reprensented as a list of edges. Adjacent edges are adjacent in the list; the cycles are folded together using the user-supplied function " (tt "F") ", which is of the form " (tt "LAMBDA CYCLE STATE")))
