anchor.diff:  
   	     (let ((shared 0))
   	       (dolist (gram list1)
  -		 (when (member gram list2 :test #'equal)
  -		   (setf list2 (remove gram list2 :test #'equal :count 1))
  +		 (when (member gram list2 :test #'string=)
  +		   (setf list2 (remove gram list2 :test #'string=l :count 1))
   		   (incf shared)))
   
   	       (cons shared (+ (list-length list1) (list-length list2))))))
  
positive.code: 
        (if (< (abs (- warp 1.0)) 1e-9)
  	  (float (/ shared total))
  	  (float (/ (- (* total warp)
  		       (* (- total shared) warp))
  		    (* total warp)))))))
  
negative.code: 	       grams)))
  
      (if (listp strings)
  	(let ((n-grams))
  	  (dolist (string strings)
  	    (setf n-grams (append n-grams (list (chop-string string))))))
  	(chop-string strings))))
  
  (defun compare-strings (string1 string2 &optional (warp 1.0) (n 2))
  