import Control.Applicative

import Control.Monad
    (when)
    
operate :: String -> (Int -> Int -> Int)

operate op
    = case op of
        "+" -> (+)
        "-" -> (-)
        "*" -> (*)
        "/" -> div
        
solve :: Int -> String -> Int -> Int

solve a op b
    = operate op a b

input :: IO (Int, String, Int)

input
    = do
        [a, op, b] <- words <$> getLine
        return (read a, op, read b)

output :: Int -> String

output
    = show
    
loop :: IO ()

loop
    = do
        (a, op, b) <- input
        when (op /= "?") $ do
            putStrLn $ output $ solve a op b
            loop
            
main :: IO ()
    
main
    = loop