cal :: String -> String
cal input = let (a:op:b:_) = words $ input
            in case op of
              "+" -> show $ read a + read b
              "-" -> show $ read a - read b
              "*" -> show $ read a * read b
              "/" -> show $ read a `div` read b
              other   -> other

getCal :: IO ()
getCal = do
    l <- getLine
    let res = cal l
    if res == "?" then return ()
    else do
      putStrLn res
      getCal

main = getCal