import Control.Applicative
import Control.Monad
import qualified Data.ByteString.Char8 as B
import Data.Maybe (fromJust)
import Text.Printf
import Debug.Trace

f x
  | x > 0 = "+" ++ show x
  | otherwise = show x

main = do
  [a,b] <- fmap (read :: String -> Int) . words <$> getLine
  putStrLn $ f (b-a)