(def start-tag (spec)
  (if (atom spec)
      `(pr "<" ',spec ">")
      `(do (pr "<" ',(car spec))
           ,@(tag-options (car spec) (pair (cdr spec)))
           (pr ">"))))

From html.arc ©