(load 
  "c:\\program files\\acl62\\music43.cl")

(defun all-note-series ()
　　(let* ((l1 (make-O))
　　　　　 (l2 (make-R l1))
　　　　　 (l3 (make-I l1))
　　　　　 (l4 (make-IR l1)))
　　　　(format t "~%O1 : ~a." 
                   l1)
　　　　(format t "~%O2 : ~a."
                   (m2-up l1))
　　　　(format t "~%O3 : ~a."
                   (M2-up l1))
　　　　(format t "~%O4 : ~a."
                   (m3-up l1))
　　　　(format t "~%O5 : ~a."
                   (M3-up l1))
　　　　(format t "~%O6 : ~a."
                   (P4-up l1))
　　　　(format t "~%O7 : ~a."
                   (+4-5-up l1))
　　　　(format t "~%O8 : ~a."
                   (P5-up l1))
　　　　(format t "~%O9 : ~a."
                   (m6-up l1))
　　　　(format t "~%O10 : ~a."
                   (M6-up l1))
　　　　(format t "~%O11 : ~a."
                   (m7-up l1))
　　　　(format t "~%O12 : ~a."
                   (M7-up l1))
　　　　(format t "~%R1 : ~a."
                   l2)
　　　　(format t "~%R2 : ~a."
                  (m2-up l2))
　　　　(format t "~%R3 : ~a."
                   (M2-up l2))
　　　　(format t "~%R4 : ~a."
                   (m3-up l2))
　　　　(format t "~%R5 : ~a."
                   (M3-up l2))
　　　　(format t "~%R6 : ~a."
                   (P4-up l2))
　　　　(format t "~%R7 : ~a."
                   (+4-5-up l2))
　　　　(format t "~%R8 : ~a."
                   (P5-up l2))
　　　　(format t "~%R9 : ~a."
                   (m6-up l2))
　　　　(format t "~%R10 : ~a."
                   (M6-up l2))
　　　　(format t "~%R11 : ~a."
                   (m7-up l2))
　　　　(format t "~%R12 : ~a."
                   (M7-up l2))
　　　　(format t "~%I1 : ~a."
                   l3)
　　　　(format t "~%I2 : ~a."
                   (m2-up l3))
　　　　(format t "~%I3 : ~a."
                   (M2-up l3))
　　　　(format t "~%I4 : ~a."
                   (m3-up l3))
　　　　(format t "~%I5 : ~a."
                   (M3-up l3))
　　　　(format t "~%I6 : ~a."
                   (P4-up l3))
　　　　(format t "~%I7 : ~a."
                   (+4-5-up l3))
　　　　(format t "~%I8 : ~a."
                   (P5-up l3))
　　　　(format t "~%I9 : ~a."
                   (m6-up l3))
　　　　(format t "~%I10 : ~a."
                  (M6-up l3))
　　　　(format t "~%I11 : ~a."
                  (m7-up l3))
　　　　(format t "~%I12 : ~a."
                  (M7-up l3))
　　　　(format t "~%IR1 : ~a."
                  l4)
　　　　(format t "~%IR2 : ~a."
                  (m2-up l4))
　　　　(format t "~%IR3 : ~a."
                  (M2-up l4))
　　　　(format t "~%IR4 : ~a."
                  (m3-up l4))
　　　　(format t "~%IR5 : ~a."
                  (M3-up l4))
　　　　(format t "~%IR6 : ~a."
                  (P4-up l4))
　　　　(format t "~%IR7 : ~a."
                  (+4-5-up l4))
　　　　(format t "~%IR8 : ~a."
                  (P5-up l4))
　　　　(format t "~%IR9 : ~a."
                  (m6-up l4))
　　　　(format t "~%IR10 : ~a."
                  (M6-up l4))
　　　　(format t "~%IR11 : ~a."
                  (m7-up l4))
　　　　(format t "~%IR12 : ~a."
                  (M7-up l4))))