Play Guess My Number

(define guess-my-number (begin (display "~ The number guessing game ~") (display "Please enter a number between 1 - 99: ") (do ([quit #f] [answer (+ 1 (random 100))] [guess "new"]) (quit ) [set! guess (read)] [if (not (number? guess)) (begin (display "Good bye...") (set! quit #t)) (begin (cond ((< guess answer) (display "Too low.")) ((> guess answer) (display "Too high.")) (else (display "Correct!") (set! quit #t) (display "Please guess again: "))) ) ] ) ) )