import Control.Monad
import Control.Applicative

solve1 :: IO ()
solve1 = do
  [a,op,b] <- words <$> getLine
  guard (op /= "?")
  let a' = read a :: Int
      b' = read b :: Int
  print $ case op of
    "+" -> a' + b'
    "-" -> a' - b'
    "*" -> a' * b'
    "/" -> a' `div` b'

main :: IO ()
main = forever solve1 <|> return ()

