let process_stdin () =
  Printf.printf "# Processing from stdin\n";
  flush stdout;
  reset_all ();
  let lexbuf = Lexing.from_channel stdin in
    try
      while true do 
        try flush stdout; Parse.statement Lex.handletop lexbuf
        with Options.Known_error -> ()
          | Parsing.Parse_error -> Printf.printf "# Error: Uncaught parse error, ignoring most recent statement\n"
      done
    with End_of_file -> ()