(defun r ()
  (loop while (listen *mongo-db-output*)
        do (format t (read-line *mongo-db-output*))))