import Control.Applicative
import Control.Monad
import Data.List
import qualified Data.Map as M
import Text.Printf

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

main :: IO ()
main = do
  [a0, op0, b0] <- words <$> getLine
  let a = read a0 :: Int
  let b = read b0 :: Int
  let op = head op0
  when (op /= '?') $ do
    case op of
      '+' -> print $ a + b
      '-' -> print $ a - b
      '*' -> print $ a * b
      '/' -> print $ a `quot` b
    main

solve :: Double -> (Double, Double)
solve r = (s, c)
 where
  s = pi * (r ^ 2)
  c = 2 * pi * r


