    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 (map (str->int typ) answers)
+     (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))])

  "Converts string to integer, for typ (int|date)."
  (case typ
    "int" parse-int
    "date" #(let [l (tc/to-long (new js/Date %))]
              (when l (safe-floor (/ l millis-in-day))))))

(defn int->str [typ &{:keys [digits]
                      :or   {digits 1}}]

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