(module (let-bug) ()
  (import scheme
          (chicken base))

  (define (main)
    (display "do stuff") (newline)

    (let ((switch? #t))
     (cond
       ((read) (display "Accepted 1") (newline))
       ((read) (display "Accepted 2") (newline))
       ((read) (display "Accepted 3") (newline))
       ((read) (display "Accepted 4") (newline))
       ((read) (display "Accepted 5") (newline))
       (else (set! switch? #f)))

     (when switch?
       (display "Denied all") (newline))))

    (display "do more stuff") (newline)
  )