calc :: Integral a => Char -> a -> a -> a
calc op = case op of
  '+' -> (+)
  '-' -> (-)
  '*' -> (*)
  '/' -> div

main :: IO ()
main = do
  input <- getLine
  let [stra, op, strb] = words input
  if op == "?"
    then do return ()
    else do
    let [a, b] = map read [stra, strb] :: [Int]
    putStrLn $ show $ calc (head op) a b
    main