(define query-loop
       (lambda ()
         (newline)
         (newline)
         (let ((query (read)))
           (cond ((exit? query)
                  (display '(see you later)))
                 (else ... PROCESS THE QUERY HERE ...
                       (query-loop))))))