Haskell #6: Solution