A mastermind solver in scheme