import Control.Applicative
import System.IO

main :: IO ()
main = do
  s <- getContents
  let lns = map words $ lines s
  if length lns <= 200
     then let arr  = map (read :: String -> Int) <$> lns
              sums = map (foldl (+) 0) arr
           in mapM_ print $ map (length . show) sums
    else return ()

