Problem 48 in Haskell