import Data.List (intercalate)

main = getLine >>= \s -> let b = length s
                             c = foldr f [] s
                             d = show $ read s + b + sum (map read c)
                         in putStrLn $ s ++ "+" ++ show b ++ "+(" ++ intercalate  "+" c ++ ")=" ++ d
  where f '-' (x:xs) = ('-':x):xs
        f b a = [b]:a