let main () = try let pgm = Parser.main Lexer.token (Lexing.from_channel stdin) in Print.program pgm ; exit 0 with | e -> prerr_endline ("Ça va pas : "^Printexc.to_string e) ; exit 1 ;; main () ;;