prerr_endline (" " ^ oname);
prerr_endline "Leaf order:";
List.iter (fun ((_,name), (a,b,c,gp,l)) ->
- prerr_endline (name ^ " " ^ string_of_int a ^ " " ^
+ prerr_endline (" " ^name ^ " " ^ string_of_int a ^ " " ^
string_of_int b ^ " " ^
string_of_int c ^ " " ^
String.concat "," (List.map string_of_int gp) ^