open Tree let main () = let lexbuf = Lexing.from_channel stdin in Parsemars2.s Lexmars2.token lexbuf ;; let rec print_tree = function | Leaf i -> print_int i | Node (t1, t2) -> print_string "(" ; print_tree t1 ; print_string " " ; print_tree t2 ; print_string ")" ;; try let t = main () in print_tree t ; print_endline "" ; exit 0 with Parsing.Parse_error -> prerr_endline "C'est pas bon" ; exit 1