            strings (-> strings distinct vec)] ; remove repeats before output
        (with-meta results
          {:bins (if (contains? (set answers) nil)
-                  (conj strings nil) strings)}))))
+                  (conj strings nil)
+                  strings)}))))
 
 (defn label-count-pairs
   "Take chart-data from the ona API, returns label->count map.

        d->millis #(* millis-in-day %)
        date->str #? (:clj  #(tf/unparse (tf/formatters :year-month-day)
                                         (tc/from-long  %))
                      :cljs #(.format (js/moment %) "ll"))]
    (case typ
      "int"  #(format int-fmt-s (float %))
      "date" #(date->str (d->millis %)))))

   metadata of this above value would be:
   {:bins ['1 to 2', '3 to 4', '5 to 6', '7 to 8', '9 to 10']}"
     [answers bins typ]
     (let [numbers (->> answers
                        (map (str->int typ)))
           mx (reduce max (remove nil? numbers))
           mn (reduce min (remove nil? numbers))
           s (scale/linear :domain [mn mx] :range [0 (- bins (/ 1 10000))])
