main = 
  let
    func = do
      line <- getLine
      let
        ls  = words line
        a   = read $ head ls :: Int
        op  = head $ head $ tail ls :: Char
        b   = read $ head $ tail $ tail ls :: Int
        calc 
          | op == '+'  = a+b
          | op == '-'  = a-b
          | op == '*'  = a*b
          | op == '/'  = (div a b)
        in
          if op == '?'
            then putStr ""
            else do
              putStrLn $ show calc
              func
    in func

