(with-open-file (output #p"~/tmp/c.html" :direction :output :if-exists :supersede)
  (plump:serialize
   (clip:process #p"~/tmp/c.ctml" :html (cl-markless:output (cl-markless:parse #p"~/org/blog/drafts/cl-loop-and-keyword.mess" t)
                                                            :format 'cl-markless-plump:plump))
   output))