A Protocol for Programmable Creditworthiness