import Data.Char
main=getLine>>=mapM_ putStrLn.f
f=takeWhile ((>=1).length).iterate g
    where g=map (intToDigit.abs.uncurry (-)).(\s->zip s (tail s)).map digitToInt