   "merges results from all organisms into one big fat map, and filters out the other two go branches"
   (filter
     (fn [result]
-      (.log js/console "XXX" (clj->js result))
       (= (:ontology-branch result) go-branch))
      (apply concat (map (fn [[_ organism]]
        organism

        organisms-present (keys counts)
        missing-organisms (find-missing-organisms counts)]
    ;  (.clear js/console)
      (.log js/console "C"(clj->js merged-results))
    {:rows final-heatmap-matrix :headers go-terms :max-count max-count :missing-organisms missing-organisms }
    ))


  (reduce (fn [new-map result]
      (update-in new-map
        [(:ortho-organism result)
         (:display-ortholog-id result)
         (:go-term result)] inc)
    ) {} results)
  )
