(chunk-next s)
(defn chunk-next [s] (if (implements? IChunkedNext s) (-chunked-next s) (seq (-chunked-rest s))))