     (> x 10000) "10000+")
   )
 
-(defn get-value-frequencies 
+(defn- get-value-frequencies 
   "go through a bunch of maps and count the frequency a given key's values"
   [many-maps k]
   (frequencies (map k many-maps))
   )
 
-(defn histogram 
+(defn- histogram 
   "Bin some frequencies using a passed in binning function"
   [binning-fn many-maps k]
   (frequencies (map binning-fn (vals (get-value-frequencies many-maps k))))

  "Functions which summarize the usage of an instance"
  (:require [clojure.tools.logging :as log]
            [clj-http.client :as client]
            (metabase [config :as config]
                      [db :as db])
            [metabase.public-settings :as settings]

    {:groups (count groups)}))

;; Artifact Metrics
(defn- question-dims 
  "characterize a saved question
  TODO: characterize by whether it has params, # of revisions, created by an admin"
  [question]
