prompts for args and reads answear
(defun prompt (&rest args) "prompts for args and reads answear" (apply #'format *query-io* args) (read *query-io*))