anchor.diff:      (:div :id "inner"
   	  (who:str 
   	   (with-output-to-string (s)
  -	     (loop for (key value) on (getf plist category) by #'cddr
  +	     (loop for each-list in (cdr (assoc category plist))
   		do (format s
  -			   (entry key (getf plist category)))))))
  +			   (entry (car each-list)
  +				  (cdr (assoc category plist))))))))
       (:br)))
   
   (defun album-search-html (plist)
  
positive.code: (defun track-lookup-html (plist)
    (concatenate 'string	 
  	       (who:with-html-output-to-string (*standard-output* nil)
  		 (:div :id "widget" (who:str (generate-embed-html (getf plist :href))))
  		 (:hr))
  	       (entry :name plist) (list #\Newline)
  	       (entry :href plist) (list #\Newline)
  
negative.code: 		 (:strong (who:str (string-capitalize category)))
  		 (:br))
  	       (with-output-to-string (s)
  		 (loop for each-plist in (cdr (assoc category plist)) do
  		      (format s
  			      (who:with-html-output-to-string (*standard-output* nil)
  				(:div :id "inner"
  				      (who:str (with-output-to-string (d)
  						 (loop for sub-list in each-plist do
  						      (format d (entry (first sub-list) each-plist))))))))))))
  
  (defun string-from-plist (category plist)
    (who:with-html-output-to-string (*standard-output* nil)
  