(load "generate-excuse")
(save-lisp-and-die "excuse"
                   :toplevel #'main
                   :executable t
                   :purify t)