let a, op, b = Scanf.scanf "%d %s %d\n" (fun a b c -> a, b, c)
let calc = function
  | "+" -> (+)
  | "-" -> (-)
  | _ -> failwith "hoge"
           
let () =
  let op = calc op in
  print_endline @@ string_of_int (op a b)