Racket，Read standard input

#lang racket/gui
(define r (random 100))
(let loop()
  (display "Input your guess: ")
  (define your-guess (read-line (current-input-port) 'any))
  (define your-guess-number (string->number your-guess))
  (printf "(~a)your guess ~a " r your-guess-number)
  (cond [(> your-guess-number r) (printf "is too larger\n") (loop)]
        [(< your-guess-number r) (printf "is too small\n") (loop)]
        [(= your-guess-number r) (printf "is right\n")])
  )