(load "make-decision")
(save-lisp-and-die "decide"
                   :toplevel #'main
                   :executable t
                   :purify t)