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))
        (cond ((< guess answer) (display "Too low. Please guess again: ") )
            ((> guess answer) (display "Too high. Please guess again: ") )
            (else (display "Correct!") (set! quit #t) ))   ] ) ) )