import Control.Applicative
import Text.Printf

main = do
  -- "L M N" ---> [L,M,N]
  n <- fmap (read :: String -> Int) . words <$> getLine
  -- ns <- fmap (fmap (read :: String -> Int) . words) . lines <$> getContents
  print $ fmap digit n

digit :: Int -> Int
digit n = length $ show n