(dolist (var org-entities)
  (when (listp var)
      (message "\"%s\"," (nth 0 var))
    )
  )