
solve op a b =
  let a' = (read :: String -> Int) a
      b' = (read :: String -> Int) b in
    if op == ['+']
      then a' + b'
      else a' - b'

main = do
  line <- getLine
  let [a, op, b] = words line in
    putStrLn $ show $ solve op a b
