main :: IO () main = getLine >>= print . abs . (10 - ) . length