(defn s [listing placement radix]
  (do
    (map (fn [n]
           (let [check-unit (/ n placement)]
             (swap! buckets update-in [(unchecked-remainder-int check-unit radix)] conj n))) listing)
    (print "Even though within (do) the buckets atom is empty.")))