         (let [c (compare bi ai)]
           (if (= c 0) (compare a b) c))))) 
 
-
+;*** Interpretation related transformations ***
 (defn interp-id
    "Return the id portion of the @id url by taking the last part 
     of the url for VariantInterpretation. If id is null return error message"

    (let [crits (ld-> t e "information" "criterion")]
      (map #(get % "id") crits))) 
  
  (defn evidence-summary    
    "Returns a standard formatted summarization of the rules that were met."    
    [t e]    
    (str "The following criteria were met: " (csv-colval (clojure.string/join ", " (criteria-assessments t e)) "ERROR-evidence-summary")))
  
  (defn re-extract
    "Returns a map of matching regex group captures for any vector, list, map which can be flattened."

    [t e]
    (let [info-sources (ld-> t e "information" "evidence" "information" "source")
          pmids (re-extract info-sources #"https\:\/\/www\.ncbi\.nlm\.nih\.gov\/pubmed\/(\p{Digit}*)" 1)]
      (csv-colval (clojure.string/join ", " (map #(apply str "PMID:" %) pmids)) "*W-551")))
  
  (defn get-met-evidence
   "Returns a collated map of all 'met' evidence records needed for the 
