(* TEST
 modules = "calc_parser.mly calc_lexer.mll";
 ocamllex_flags = " -q ";
 ocamlyacc_flags = " -q ";
 readonly_files = "calc_input.txt";
 stdin = "calc_input.txt";
*)
let _ =
  try
    let lexbuf = Lexing.from_channel stdin in
    while true do
      let result = Calc_parser.main Calc_lexer.token lexbuf in
        print_int result; print_newline(); flush stdout
    done
  with Calc_lexer.Eof ->
    exit 0