let process (lexbuf : Lexing.lexbuf) = try while true do Parse.statement Lex.handletop lexbuf; flush stdout; done with End_of_file -> ()