Haskell #7: Solution