main = do
    ss <- getLine
    let (a,op,b) = readExpr $ words ss
    if op == "?"
        then return ()
        else do
            print $ calc op a b
            main

calc x y z
  | x == "+" = y+z
  | x == "-" = y-z
  | x == "*" = y*z
  | x == "/" = y `div` z
  | otherwise = 0

readExpr :: [String] -> (Int, String, Int)
readExpr ws = (a, op, b)
    where
        a = read (head ws) :: Int
        b = read (last ws) :: Int
        op = (head . tail) ws
