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 -> ()