first try on cl-cont's continuation

(defun pn (n)
  (cl-cont:with-call/cc
    (cond ((eq 0 n) (format t "~A "'DONE))
          (t (cl-cont:call/cc (lambda (k)
                                (funcall k (pn (- n 1)))
                                (format t "~A  " n)))))))