module Main where

import Control.Appicative
import Text.Printf
import Numeric

main :: IO ()
main = loop

loop :: IO ()
loop = do
   { [as, os, bs] <- words <$> get
   ; case os of 
       "?" -> return ()
       "+" -> print (readInt' as + readInt' bs) >> loop
       "-" -> print (readInt' as - readInt' bs) >> loop
       "*" -> print (readInt' as * readInt' bs) >> loop
       "/" -> print (readInt' as 'div' readInt' bs) >> loop
   }

--

getInts :: IO [Int]
getInts = map read . words <$>getLine

putInts :: [Int] -> IO ()
putInts = putStrLn . unwords . map show

getDoubles :: IO [Double]
getDoubles = map read . words <$>getLine


putDoubles :: [Double] -> IO ()
putDoubles = putStrLn . unwords . map showDouble

showDouble :: Double -> String
showDouble x = showFFloat Nothing x ""

readInt :: String -> Int 
readInt = read 

getStrings :: IO [String]
getStrings = words <$> getLine

