(* file: main.ml *)
(* Assumes the parser file is "rpcalc.mly" and the lexer file is "lexer.mll". *)
let main () =
	try
		let lexbuf = Lexing.from_channel stdin in
			while true do
				try
					Rpcalc.input Lexer.token lexbuf
				with Parsing.Parse_error -> print_endline "What?"; flush stdout
			done
	with End_of_file -> exit 0
      
let _ = Printexc.print main ()
let parse_error s = (* Called by the parser function on error *)
  print_endline s;
  flush stdout