;;;
;;; c:\\program files\\acl62\\music27.cl
;;;
(load "c:\\program files\\acl62\\music26.cl")

(defun show-phrases-of-all-keys (lst)
　　(format t "~%~a" lst)
　　(format t "~%~a" (m2-up-phrases lst))
　　(format t "~%~a" (M2-up-phrases lst))
　　(format t "~%~a" (m3-up-phrases lst))
　　(format t "~%~a" (M3-up-phrases lst))
　　(format t "~%~a" (P4-up-phrases lst))
　　(format t "~%~a" (+4-5-up-phrases lst))
　　(format t "~%~a" (P5-up-phrases lst))
　　(format t "~%~a" (m6-up-phrases lst))
　　(format t "~%~a" (M6-up-phrases lst))
　　(format t "~%~a" (m7-up-phrases lst))
　　(format t "~%~a" (M7-up-phrases lst)))

(defun get-phrases-of-all-keys (lst)
　　(list lst
　　　　　(m2-up-phrases lst)
　　　　　(M2-up-phrases lst)
　　　　　(m3-up-phrases lst)
　　　　　(M3-up-phrases lst)
　　　　　(P4-up-phrases lst)
　　　　　(+4-5-up-phrases lst)
　　　　　(P5-up-phrases lst)
　　　　　(m6-up-phrases lst)
　　　　　(M6-up-phrases lst)
　　　　　(m7-up-phrases lst)
　　　　　(M7-up-phrases lst)))