Write a Program in the Scheme Programming Language

Write a Scheme program that implements the following functions: • (convert number base) The function should convert the number in base 10 to its equivalent in base base • This procedure, called roll-till-you-win, takes as argument a particular bet and simulates the rolling of a die until the bet wins (define (roll-till-you-win bet) (let ((die-roll (1+ (random 6)))) (display die-roll) (newline) (cond ((=die-roll bet) (display “You won!”)) (else (roll-till-you-win bet))))) Modify roll-till-you-win so that the procedure makes a random bet at each roll. The new procedure should take no arguments and simply keep rolling the die until the random bet happens to be the same as the new roll. Here is a sample printout of the result: Bet: 5 Result: 4 Bet: 1 Result: 3 Bet: 4 Result: 4 You won! • Write a third procedure: (list-primes n) This procedure will print the prime numbers up to n. Sample: (list-primes 20) 2 3 5 7 11 13 17 19