anchor.diff:  	  (float (/ shared total))
   	  (float (/ (- (* total warp)
   		       (* (- total shared) warp))
  -		    (* total warp)))))))
  +		    (* total warp)))))))
positive.code: 		   (grams nil))
  	       (dotimes (i (- (length s) (1- n)))
  		 (setf grams (append grams (list (subseq s i (+ i n))))))
  	       grams))
  
  	   (iter (strings n-grams)
  	     "Iterates over the list of strings to produce the lists of grams."
  
  	     (if strings
  		 (iter (cdr strings) (append n-grams
  					     (list (chop-string (car strings)))))
  		 n-grams)))
      
      (if (listp strings)
  	(iter strings nil)
  	(chop-string strings))))
  
  (defun compare-strings (string1 string2 &optional (warp 1.0) (n 2))
  
negative.code:   (flet ((compare-members (list1 list2)
  	     "How many grams are shared, and how many are there in total?"
  
  	     (let ((shared 0))
  	       (dolist (gram list1)
  		 (when (member gram list2 :test #'equal)
  		   (setf list2 (remove gram list2 :test #'equal :count 1))
  		   (incf shared)))
  
  	       (cons shared (+ (list-length list1) (list-length list2))))))
      
      (let* ((gram-stats (compare-members g1 g2))
  	   (shared (car gram-stats))
  