-- 1_4_C
main = do cs <- getLine
          let [a, op, b] = words cs
          case op of
            "?" -> return()
            op  -> do print $ calc a op b
                      main

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