Solve problem 206 using Haskell.