module Main where
--import Debug.Trace
import Data.List
import Data.Char
import Data.Array
import Data.Maybe
import Data.Ord
import Control.Monad

solve :: [Int] -> [Int]
solve [] = []
solve (x:xs) = iter x: solve xs where
    iter x = case divMod x 10 of
        (q, r)  | q == 0 -> r 
                | otherwise -> r + iter q

readLine:: IO [Int]
readLine = fmap (map read . words) getLine
                
readUntil :: ([Int] -> Bool) -> IO [[Int]]
readUntil eof = iter where
    iter = readLine >>=
            (\a -> if eof a then return [] else fmap (a:) iter)
            
eof :: [Int] -> Bool
eof (x:xs) = all (==0) [x]

main :: IO() 
main = do
    l   <- readUntil eof
    mapM_ putStrLn $ map show (solve (concat l))

