;;;
;;; c:\\program files\\acl62\\work1.cl
;;;
;;; (auto-comp *w1*)
;;; (tell-pairs *w2*) 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)))
(setf *w7* '((G "Speak Low")
("Am7" dor) ("D7" mix) ("Am7"
dor) ("D7" mix) ("Am7" dor) ("D7" mix)
("Bm7-5" loc) ("E7" alt) ("Cm7" dor) ("F7" mix) ("Cm7" dor) ("F7" mix)
("Bm7" phr "E7" hmp5) ("Am7"
dor "D7" mix) ("GM7" ion)
("Bm7-5" loc "E7" hmp5) ("Am7"
dor) ("D7" mix) ("Am7" dor) ("D7" mix)
("Am7" dor) ("D7" alt) ("Bm7-5" loc) ("E7" alt) ("Cm7" dor) ("F7" mix)
("Cm7" dor) ("F7" mix) ("Bm7"
phr "E7" hmp5) ("Am7" dor "D7" alt)
("GM7" ion) ("GM7" ion) ("Gm7"
dor) ("Gm7" dor) ("-E7" lyd-7) ("-E7" lyd-7)
("FM7" ion) ("FM7" ion) ("-E7" lyd-7) ("D7" mix) ("Am7" dor) ("D7" mix)
("Am7" dor) ("D7" mix) ("Am7"
dor) ("D7" mix) ("Bm7-5" loc) ("E7" alt)
("Cm7" dor) ("F7" mix) ("Cm7"
dor) ("F7" mix) ("Bm7-5" loc) ("E7" alt)
("Em7" aeo "A7" lyd-7) ("Am7" dor "D7" mix) ("GM7" ion) ("Bm7-5" loc "E7" hmp5)
("-EM7" lyd) ("-AM7" lyd) ("GM7"
ion)))
(setf *w8* '((F "Day By Day")
("Gm7" dor) ("C7" mix) ("Gm7" dor) ("C7" alt) ("FM7" ion) ("-B7" lyd-7)
("Am7" phr) ("D7" alt) ("Gm7"
dor) ("A7" alt) ("Dm7" aeo) ("Dm7" aeo)
("G7" lyd-7) ("G7" lyd-7) ("Am7-5"
loc) ("D7" alt) ("Gm7" dor) ("C7" mix)
("Gm7" dor) ("C7" alt) ("FM7" ion) ("-B7" lyd-7) ("Am7-5" loc) ("D7" alt)
("Gm7" dor) ("C7" alt) ("Am7"
phr) ("D7" alt) ("Gm7" dor) ("C7" alt) ("FM7"
ion)
("Am7-5" loc "D7" alt) ("Gm7"
dor) ("C7" mix) ("Gm7" dor) ("C7" alt) ("FM7"
ion)
("-B7" lyd-7) ("Am7" phr) ("D7" alt) ("Gm7" dor) ("A7" alt) ("Dm7" aeo) ("Dm7" aeo)
("G7" lyd-7) ("G7" lyd-7) ("Am7-5"
loc) ("D7" alt) ("Gm7" dor) ("C7" mix)
("Gm7" dor) ("C7" alt) ("FM7"
ion) ("-B7" lyd-7) ("Am7-5" loc) ("D7" alt)
("Gm7" dor) ("C7" alt) ("Am7" phr) ("D7" alt) ("Gm7" dor) ("C7" alt) ("FM7" ion)
("Am7-5" loc "D7" alt) ("Gm7"
dor) ("C7" alt) ("FM7" ion) ("FM7" ion))