printn x =
    let out = show x
    in do
      putStr out
      return (length out)

main = do
  c <- printn [0..9]
  printn (" has " ++ show c ++ " characters")