;;;
;;; c:\\program files\\acl62\\work1.cl
;;;
;;; (auto-comp *w1*)
;;; (tell-pairs *w2*)        etc.

(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))