(DE NODEPICK1 (FCM NF)
  (PROG (X Y Z Y2)
    (SETQ X (MAPCAR (FUNCTION FNODLST) FCM))
    (RETURN (FOR Y IN NF LIST
	(SETQ Y2 (CDR Y))
	(SETQ Z NIL)
	(COND ((NULL Y2) (GO A)))
	(SETQ Z (CDR (ASSOC (CAR Y2) X)))
B	(SETQ Y2 (CDR Y2))
	(COND ((NULL Y2) (GO A)))
	(SETQ Z (INTERSECTION Z (CDR (ASSOC (CAR Y2) X))))
	(GO B)
A 	(CONS (CAR Y) Z)))))))))))


(DE INTERSECTION (A B)
   (FOR NEW X IN A WHEN (MEMBER X B) LIST X)))))))))))

(DE PAUSE ()
   (PROG (RDDDD)
LP   (PRINT @READY?)
     (COND((ATOM (SETQ RDDDD (READ))) (RETURN NIL)))
     (PRINT (EVAL RDDDD))
     (GO LP))))))))))))))