Like partition, but adds padding at the end of the last sequence so that last sequence's size is equal to "si

end-padded-partition

(defn end-padded-partition [size acoll]
   (loop [new-coll [], coll acoll)]
      (if (empty? coll)
         new-coll
         (recur 
            (let [next-stuff (vec (take size coll))
                  padding-size (- size (count next-stuff))
                  padding (rand-bytes padding-size)]
                (if (zero? padding-size)
                   (conj new-coll next-stuff)
                   (conj new-coll (into next-stuff padding))))
            (drop size coll)))))