let
print_graph () : unit =
Depgraph
.print_graph (cur_graph ())