import Data.Char main = interact $ unlines . map (map intToDigit . fortune . map digitToInt) . tail . lines fortune [n] = [n] fortune ns = fortune $ zipWith (\s1 s2 -> uncurry (+) (divMod (s1+s2) 10)) ns (tail ns)