(defun c:reacs () 
 (mapcar 
 '(lambda (reactors) 
   (mapcar 
   '(lambda (reactor) 
     (princ "\n") 
     (princ (vlr-reactions reactor)) 
    ) 
    (cdr reactors) 
   ) 
  ) 
  (vlr-reactors) 
 ) 
) 


;my quickie 


(defun ListAllReactors( ) 
  (vlr-reactors) 
) 


(defun ListAllReactions() 
(foreach r 
 (listAllReactors) 
 (print (car r)) 
 (print (cdr r)) 
 (vlr-reactions (cadr r)) 
 ) 
)