import Control.Monad import Control.Applicative main :: IO () main = do [a, b] <- map read . words <$> getLine putStrLn $ show $ solve a b solve :: Int -> Int -> Int solve a b = a-(-b)