import Control.Monad
f i = do
  aopb_in <- (return . words) =<< getLine
  let a = (read::String->Int) (aopb_in !! 0)
  let b = (read::String->Int) (aopb_in !! 2)
  let op = aopb_in !! 1
  if op == "?"
    then return () else do
      when (op == "+") (putStrLn (show (a + b)))
      when (op == "-") (putStrLn (show (a - b)))
      when (op == "*") (putStrLn (show (a * b)))
      when (op == "/") (putStrLn (show (a `div` b)))
      f $ i+1

main = f 1

