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