(defn test-gc [size n]
  (loop [[f & r] (take n (repeatedly #(byte-array size)))]
    (when f (recur r))))