* h_program-lang/graph_code_opti.ml: ugly