(dolist (var (sort (seq-filter 'listp  org-entities)
                   (lambda (x y) (> (length (nth 0 x)) (length (nth 0 y))))))
  (message "EntityDefinition {name: %s, latex_math_mode: %s, latex: %s, html: %s, ascii: %s, utf8: %s},"
           (prin1-to-string (nth 0 var))
           (if (nth 2 var) "true" "false")
           (prin1-to-string (nth 1 var))
           (prin1-to-string (nth 3 var))
           (prin1-to-string (nth 4 var))
           (prin1-to-string (nth 6 var))
           )
  )