thanthese

(def radius (if (empty? *command-line-args*)
              12
              (Integer/parseInt (first *command-line-args*))))

(defn stream [radius]
  (let [full-range (range (- radius)
                          (inc radius))]
    (for [x full-range
          y full-range
          z full-range]