import           Control.Applicative
import           Control.Monad
import           Data.List

main :: IO ()
main =  mapM_ process . map( map (read::String->Int) . words) . lines =<< getContents
  where
    process [x,y] = print . length $ show (x+y)
