refactor luhn.hs