import Control.Applicative
main = do
    list <- getLine
    let (a, op, b) = toExpression list
    if op == "?"
        then return ()
        else do
        print $ solve a b op
        main
solve :: Int -> Int -> String -> Int
solve a b op
    | op == "+" = a + b
    | op == "-" = a - b
    | op == "*" = a * b
    | op == "/" = a `div` b
    | otherwise = 0
toExpression :: String -> (Int, String, Int)
toExpression = (\ws -> (read (head ws) :: Int, ws!!1, read (last ws) :: Int)) . words