import Control.Applicative ((<$>)) import Text.Printf (printf) main :: IO () main = do [a, b] <- fmap read . words <$> getLine :: IO [Int] printf "%+d\n" (b - a)