Add Haskell solution to luhn