perl6-Business-CreditCardValidate/generate credit card checksums/namesuse Business::CreditCard; say validate("5276 4400 6542 1319"); say cardtype("5276 4400 6542 1319");