;;;
;;; c:\\program files\\acl62\\work1.cl
;;;

;;;
;;;   (auto-comp *w1*) etc.
;;;

(setf *w1* '((-E "When I Fall In Love")
        ("-EM7" ion "C7" alt) ("Fm7" dor "-B7" mix) ("-EM7" ion "C7" alt) ("Fm7" dor "-B7" mix)
         ("-EM7" ion) ("C7" alt) ("F7" lyd-7) ("-B7" mix) ("-EM7" ion) ("Fm7" dor "-B7" mix)
        ("-EM7" ion "-D7" lyd-7) ("Gm7" phr "C7" alt) ("Fm7" dor) ("C7" alt) ("Fm7" dor)
        ("-B7" mix) ("-EM7" ion "C7" alt) ("Fm7" dor "-B7" mix) ("-EM7" ion "C7" alt)
        ("Fm7" dor "-B7" mix) ("-EM7" ion) ("C7" alt) ("F7" lyd-7) ("-B7" mix) ("-EM7" ion)
        ("Am7-5" loc "D7" alt) ("Gm7" phr "C7" alt) ("Fm7" dor "-D7" lyd-7) ("Gm7" phr "C7" alt)
         ("Fm7" dor "-B7" mix) ("-EM7" ion "Edim7" dim) ("Fm7" dor "-B7" mix)))

(setf *w2* '((C "Laura")
        ("Am7" dor) ("D7" alt) ("GM7" ion) ("GM7" ion) ("Gm7" dor) ("C7" alt) ("FM7" ion)
        ("FM7" ion) ("Fm7" dor) ("-B7" alt) ("-EM7" ion) ("-EM7" ion) ("Am7-5" loc)
        ("D7" alt) ("GM7" ion) ("Bm7" phr "E7" alt) ("Am7" dor) ("D7" alt) ("GM7" ion)
        ("GM7" ion) ("Gm7" dor) ("C7" alt) ("FM7" ion) ("FM7" ion) ("Fm7" dor)
        ("Dm7-5" loc "G7" alt) ("CM7" ion) ("Am7" aeo) ("D7" lyd-7) ("Dm7-5" loc "G7" alt)
        ("-DM7" ion) ("CM7" ion)))

(setf *w3* '((F "Dindi")
        ("FM7" ion) ("-EM7" lyd) ("FM7" ion) ("Cm7" dor "F7" alt) ("-BM7" lyd)
        ("-E7" lyd-7) ("FM7" ion) ("-EM7" lyd) ("FM7" ion) ("-EM7" lyd) ("FM7" ion)
        ("Cm7" dor "F7" alt) ("-BM7" lyd) ("-E7" lyd-7) ("FM7" ion) ("Bm7-5" loc "E7" hmp5)
        ("Am7" all) ("E7" hmp5) ("Am7" all "E7" hmp5) ("Am7" all "D7" alt) ("Gm7" all)
        ("D7" hmp5) ("Gm7" all "D7" hmp5) ("Gm7" all "C7" alt) ("FM7" ion) ("-EM7" lyd)
        ("FM7" ion) ("Cm7" dor "F7" alt) ("-BM7" lyd) ("-E7" lyd-7) ("FM7" ion) ("-EM7" lyd)
        ("FM7" ion) ("-EM7" lyd) ("FM7" ion) ("-EM7" lyd)
        ("FM7" ion) ("FM7" ion) ("-EM7" lyd) ("-EM7" lyd)
        ("DM7" ion) ("DM7" ion) ("DM7" ion) ("DM7" ion)))

(setf *w4* '((G "Love")
        ("GM7" ion) ("GM7" ion) ("Am7" dor) ("D7" mix) ("D7" mix) ("D7" mix)
        ("GM7" ion) ("GM7" ion) ("GM7" ion) ("G7" mix) ("CM7" lyd) ("CM7" lyd)
        ("A7" lyd-7) ("A7" lyd-7) ("Am7" dor) ("D7" mix) ("GM7" ion) ("GM7" ion)
        ("Am7" dor) ("D7" mix) ("D7" mix) ("D7" mix) ("GM7" ion) ("GM7" ion)
        ("GM7" ion) ("G7" mix) ("CM7" lyd) ("+Cdim7" dim) ("GM7" ion) ("D7" mix)
        ("GM7" ion "+Gdim7" dim) ("Am7" dor "D7" mix) ("GM7" ion)
        ("GM7" ion) ("GM7" ion) ("GM7" ion)))

(setf *w5* '((c "Yesterdays")
        ("Cm" all) ("Dm7-5" loc "G7" alt) ("Cm" all) ("Dm7-5" loc "G7" alt) ("Cm" all)
        ("Cm7" all) ("Am7-5" loc) ("D7" alt) ("G7" alt) ("C7" alt) ("F7" alt) ("-B7" lyd-7)
        ("-E7" alt) ("-AM7" ion "G7" alt) ("Cm" all) ("Dm7-5" loc "G7" alt) ("Cm" all)
        ("Dm7-5" loc "G7" alt) ("Cm" all) ("Dm7-5" loc "G7" alt) ("Cm" all) ("Cm7" all)
        ("Am7-5" loc) ("D7" alt) ("G7" alt) ("C7" alt) ("F7" alt) ("-B7" lyd-7) ("-E7" alt)
        ("-AM7" ion "G7" alt) ("Cm" all) ("Dm7-5" loc "G7" alt) ("Cm" all "Am7-5" loc)
        ("Dm7-5" loc "G7" alt) ("Cm" all "Am7-5" loc) ("Dm7-5" loc "G7" alt)
        ("Cm" all "Am7-5" loc) ("Dm7-5" loc "G7" alt)
        ("Cm" all) ("Cm" all) ("Cm" all) ("Cm" all)))

(setf *w6* '((F "I'm Getting Sentimental Over You")
         ("FM7" ion) ("E7" alt) ("Am7-5" loc) ("D7" alt) ("G7" lyd-7) ("C7" mix)
         ("Am7" phr "D7" alt) ("Gm7" dor "C7" mix) ("FM7" ion) ("E7" alt) ("Am7-5" loc)
         ("D7" alt) ("G7" lyd-7) ("C7" mix) ("FM7" ion) ("Bm7-5" loc "E7" alt)
         ("Am" aeo) ("Am7" aeo) ("B7" alt) ("Dm7" dor) ("E7" alt) ("E7" alt)
         ("Am7" aeo "D7" alt) ("Gm7" dor "C7" mix) ("FM7" ion) ("E7" alt)
         ("Am7-5" loc) ("D7" alt) ("G7" lyd-7) ("C7" mix) ("Am7" aeo) ("D7" alt)
         ("G7" lyd-7) ("C7" mix) ("FM7" ion "+Fdim7" dim) ("Gm7" dor "C7" mix)
         ("FM7" ion) ("FM7" ion) ("FM7" ion) ("FM7" ion)))