(define query-loop
       (lambda ()
         (newline)
         (newline)
         (let ((query (read)))
           (cond ((exit? query)
                  (display '(see you later)))
                 (else ... PROCESS THE QUERY HERE ...
                       (query-loop))))))
     
     (define exit?
       (lambda (query)
         (cond ((equal? query '(bye)) #T)
               ((equal? query '(quit)) #T)
               ((equal? query '(exit)) #T)
               ((equal? query '(so long)) #T)
               ((equal? query '(farewell)) #T)
               (else #F))))