impl luhn.hs