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: "))) )  ] ) ) )