complete.clj

(defn round-frequencies
  [iso-map]
  (transform [MAP-VALS
              (transformed
                [ALL (view iso-size)]
                round-by-quarter)
              (view (partial filter #(< % 7)))
              (view frequencies)
              (transformed
                [(subselect MAP-VALS)
                 (collect-one (view #(apply + %)))
                 ALL]
                (fn [total v] (/ v total)))]
    #(into (sorted-map)
       (keep (fn [[k v]]
               (when (> v 1/100)
                 [k (-> 100
                      (* (double v))
                      str
                      (str/split #"\.")
                      first)])))
       %)
    iso-map))