print (22 3 4)


(defun read-1-item (infile)
  (let ((item (read infile nil '*done*)) (route (read infile nil nil)))
    (cond (route
	   (setq *LIST-OF-ITEMS* (pushnew item *LIST-OF-ITEMS*))
	   (cond ((member (car route) '(s S))	; is it a subject?
		  (setq route (cdr route))
		  (putprop item t 'SUBJECT)
		  (setq *LIST-OF-SUBJECTS* (cons item *LIST-OF-SUBJECTS*))))
	   (intern-item item route)))
    item))


  (with-open-file (infile *newbase-filename*)
    (do nil
	((eq (read-1-item infile) '*done*)
	 '*done*))))