rkt.rkt

(define (askContinue)
  (display "contunue? (Y/N)")
  (define in (read))
  (cond
    ((eq? in 'Y) #t)
    ((eq? in 'N) #f)
    (else (askContinue))
  )
)