import Control.Applicative
import Data.List
import qualified Control.Monad as Monad


main :: IO ()
main = opCalc 

opCalc :: IO()
opCalc = do 
  [x, _op, y] <- words <$> getLine
  let a = read x :: Int
  let b = read y :: Int
  let op = _op :: String
  Monad.when(op /= "?") $ do
   let str = show (convertStrToOp(op) a b)
   putStrLn str
   opCalc
   
convertStrToOp :: String -> (Int -> Int ->Int)
convertStrToOp "+" = (+)
convertStrToOp "-" = (-)
convertStrToOp "*" = (*)
convertStrToOp "/" = div

