Added my haskell code, slightly different, doesn't completely work

We worked together, put putting different code together, so heres my attempt. It only works a little bit.