import Control.Applicative (liftA3) import Data.Bool (bool) getNums = map (read :: String -> Int) . words <$> getLine toStr = liftA3 bool show' (("+" ++) . show') (> 0) where show' = show :: Int -> String main = getNums >>= putStrLn . toStr . foldl1 (-) . reverse