module Main where

    import Debug.Trace
    import Text.Printf


    readLine:: IO (Char, Int, Int)
    readLine = do
            line <- getLine
            let [a,op,b] = words line
            return (head op, read a, read b)

    while :: (Char, Int, Int) -> IO ()
    while (op, a, b)
        | op == '?' = return ()
        | otherwise = do
            f op a b
            exp <- readLine
            while exp

    f :: Char -> Int -> Int -> IO ()
    f op a b = do
        print $ case op of
                '+' -> a + b
                '-' -> a - b
                '*' -> a * b
                '/' -> div a b

    main :: IO() 
    main = do
        exp <- readLine
        while exp
    
