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