Problem 20 (Haskell)