Haskell #4: Solution