Added my haskell code, slightly different, doesn't completely work
Merge pull request #5 from ant1441/master

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