Add dirty haskell solution.

This is HASKELL!!!