Scheme chord builder

This program has originated from a discussion on Linux Questions. The documentation is pending... Example:

(let* ((C7 (chord "C" "7")) ;; find the notes C7 consists of and store in the variable
	 (full-c7 (make-has-steps C7 '(0 1 2 3))) ;; make a function that checks if all notes 
	                                          ;; of a chord are present in a fingering 
						  ;; and store it in the the 'full-c7' variable
	 (fingerings 
	   (combine-frets 
	     (allow-mutes (place-chord C7))))) ;; find many potential fingerings, 
	                                       ;; including those with mute strings ("x")
    (filter full-c7 fingerings)) ;; filter only those where all notes of C7 sound

 Name                    Last modified       Size  Description

 Parent Directory        26-Aug-2005 17:44      -  
 chbuils.ss              26-Aug-2005 17:44     6k