main :: IO ()
main = do
    line <- getLine
    let
        [a, op, b] = words line
    case op of
      "+" -> print $ ((read a :: Int) + (read b :: Int))
      "-" -> print $ ((read a :: Int) - (read b :: Int))
      "*" -> print $ ((read a :: Int) * (read b :: Int))
      "/" -> print $ ((read a :: Int) `div` (read b :: Int))
      "?" -> return ()
    if "?" == op then return () else main