#+BEGIN_SRC emacs-lisp :results none
(setq properties-list '("Title" "Composer" "Publisher" "NDisks"))

(let ((MATCH t)
      (SCOPE 'file)
      (SKIP nil)
      (spacing nil))
  (org-map-entries
   (lambda ()
     (let ((level (nth 1 (org-heading-components))))
       (if (= level 3)
           (save-restriction
             (org-narrow-to-subtree)
             (goto-char (point-max))

             (org-insert-heading)
             (insert "New Entry\n")
             (dolist (property properties-list)
               (org-entry-put (point) property nil)
               )
             ;; now cut tree and paste at level 4
             (org-cut-subtree)
             (org-paste-subtree 4)
             )))) MATCH SCOPE SKIP))
#+END_SRC

** Class One
*** Student 1
**** Essay 1
*** Student 2
*** Student 3
**** Essay 1
** Class Two
*** Student 1
*** Student 2