import Control.Applicative
import Data.Function
import Control.Monad

calc :: Int -> String -> Int -> Int
calc a "+" b = a + b
calc a "-" b = a - b
calc a "*" b = a * b
calc a "/" b = a `div` b

main :: IO ()
main = fix $ \loop -> do
    [a,op,b] <- words <$> getLine
    unless (op == "?") $ do
        putStrLn . show $ calc ((read :: String -> Int) a) op ((read :: String -> Int) b)
        loop
