(define query-loop
       (lambda ()
         (newline)
         (newline)
         (let ((query (read)))
           (cond ((exit? query)
                  (display '(see you later)))
                 (else (answer-by-pattern query movie-p/a-list)
                       (query-loop))))))