main = do
  s <- getContents
  mapM_ print . map calc . takeWhile(\[a,op,b] -> op /= "?") . map words . lines $ s

calc :: [String] -> Int
calc [sa, op, sb] 
  | op == "+" = a + b
  | op == "-" = a - b
  | op == "*" = a * b
  | op == "/" = a `div` b
  | otherwise = 0
  where 
    a = read sa :: Int
    b = read sb :: Int