let main () = let lexbuf = Lexing.from_channel stdin in try let pgm = Parser.main Lexer.token lexbuf in exit 0 with | e -> Printf.fprintf stderr "Ça va pas : %d--%d, %s\n" (Lexing.lexeme_start lexbuf) (Lexing.lexeme_end lexbuf) (Printexc.to_string e) ; flush stderr ; exit 1 ;; main () ;;