main = do
  let x = 5
  print x
  let x = 6
  print x
  xs  <- getLine
  print (length xs)