;;;
;;; c:\\program files\\acl62\\music44.cl
;;;
(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))))