(* grafite ast constructors *************************************************)
+(*
let floc = H.dummy_floc
let mk_note str = G.Comment (floc, G.Note (floc, str))
render_steps sep (render_step (Some mk_dot) a p) ps
let render_steps a = render_steps None a
+*)
+let render_steps sep a = assert false
(* counting *****************************************************************)