(defun (start)
(cond ((not *quiet*)
(let ((g (gc)))
(terpri)
(princ (car g))
(princ " NODES\n")
(princ (cadr g))
(princ " VCELLS\n\n")))))