toTuple :: String -> (Int, String, Int)
toTuple s = (read a, op, read b)
    where
        [a, op, b] = words s

solve :: (Int, String, Int) -> Int
solve (a, op, b)
    | op == "+" = a + b
    | op == "-" = a - b
    | op == "*" = a * b
    | op == "/" = a`div` b

main :: IO ()
main = interact (unlines . map (show . solve) . takeWhile (\(_, op, _) -> op /= "?") . map toTuple . lines)