{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE BangPatterns #-}
{-# LANGUAGE LambdaCase #-}

module Main where

import qualified Data.ByteString.Char8 as B8
import Data.Maybe (fromJust)
import Data.Char (toUpper,isDigit)
import Data.List
import qualified Data.Map as M
import Data.Array.IO
import Data.IORef
import Data.Ix (range)
import Control.Monad
import Control.Applicative
import Text.Printf
import Data.Time.Calendar
import Debug.Trace

readDigits = map read <$> words <$> getLine :: IO [Int]
readDigits' = map read <$> lines <$> getContents :: IO [Int]

solve :: [String] -> IO ()
solve [] = return ()
solve (line:ls) = do
    let [a,o,b] = words line
    s (read a) o (read b)
    solve ls
    where
    s :: Int -> String -> Int -> IO ()
    s a "+" b = putStrLn $ show (a+b)
    s a "-" b = putStrLn $ show (a-b)
    s a "*" b = putStrLn $ show (a*b)
    s a "/" b = putStrLn $ show (a`div`b)
    s _ _ _ = return ()

--
main :: IO ()
main = do
    solve =<< lines <$> getContents