(resolve (lambda (n e env)
	    (toc :chapter #t :section #t :subsection #t 
		 (handle (ast-chapter n)))))