Problem #20 Haskell solved