{--
Now for something completely different.

My daughter, EM, posed this #math problem to me. Can you solve it?

WHAT IS THE NEXT NUMBER?
3
13
1113
3113
132113
?
--}

series :: [Integer]
series = map read (words "3 13 1113 3113 132113")
series :: [Integer]
series = map read (words "3 13 1113 3113 132113")
series = map read (words "3 13 1113 3113 132113")