(set draft (make-paper :title 'draft : body (make-paper-body)
                    :program (make-bad-paper-program)))

(defun make-bad-paper-program ()
    (let ((argument nil))
    #' (lambda (premise)
        (push premise argument)
        'no-op)))

but seriously — you can click on one of the links above depending on the level of bakedness you want to see in a paper