module Main where

import Data.Char
import Data.List
import Control.Monad

looksay :: String -> String
looksay "" = ""
looksay s = chr (48 + length start) : head s : looksay rest
    where start = takeWhile (== head s) s
          rest = drop (length start) s

day9 :: IO ()
day9 = do
    let input = "1113122113"
    print $ length $ (iterate looksay input) !! 50

main = day9