anchor.diff:      (euc-sim "Euclidian distance-based similarity of document vectors")
       (eucos-sim "Euclidian-cosine averaged similarity")
       (smoothed-cos-sim "Smoothed cosine similarity")
  -    (tfidf-sim "TFIDF similarity")
  +    (tfidf-sim "TF-IDF similarity")
       (bm25-sim "BM25 similarity - a variant of TFIDF")
       #+nil (wn-sim "Pubmed Wordnet-based similarity of documents")))
   
  
positive.code:            (who:str @rec.summary)
             (:div (:span :class "grey" "Platform: ") (who:str @rec.platform)
                   (:br)
                   (:span :class "grey" "Citations: ") (who:str @rec.citations))))))
  
  (defun find-closest-recs (rec count
                            &key (methods (mapcar 'first *geo-sim-methods*)))
  
negative.code:                     (loop :for (method desc) :in *geo-sim-methods* :do
                        (who:htm
                         (:input :type :radio :name "simmethods" :value method)
                         (:label :for "simmethods" (who:str desc))
                         (:br))))
                     (:div :class "box" :id "sim-filters"
                      "Choose additional filters:" (:br)
  