Adding problem 15 (Haskell)