Problem #25 Haskell solved