let print_graph (graph : graph) : unit = let printmaybe id node = if !Options.debug || not (String.get id 0 = '_') then printnode graph node in Hashtbl.iter printmaybe graph