Add Haskell implementation.

Because I have literally nothing better to do this afternoon.