import Data.Maybe
main :: IO()
main = do
  inputs <- getContents
  mapM_ (result.calc.readExpr) $ [line | line <-(lines inputs), length(line) > 0]

calc :: (Int, String, Int) -> Maybe Int
calc (a, op, b)
    | op == "+" = Just $ a + b
    | op == "-" = Just $ a - b
    | op == "*" = Just $ a * b
    | op == "/" = Just $ a `div` b
    | op == "?" = Nothing

readExpr :: String -> (Int, String, Int)
readExpr line = let [a, op, b] = words line
                in ((read a ::Int), op, (read b ::Int))

result :: Maybe Int -> IO()
result x | x == Nothing = return ()
         | otherwise = print $ fromJust x