calc :: Int -> String -> Int -> Int
calc a op b = case op of
  "+" -> a + b
  "-" -> a - b
  "*" -> a * b
  "/" -> a `mod` b

main = do
  [sa, op, sb] <- fmap words getLine
  if op == "?" then
    return ()
  else do
    let [a, b] = map read [sa, sb] :: [Int]
    print $ calc a op b
    main