(value :q)
(lp)
(certify-book "../write-acl2-html")
(write-html-file :file "acl2-doc")
:q
