seq ;
: with-counting-stream ( stream quot -- in-count out-count )
- [ <counting-stream> ] dip [ with-input-stream ] keepd [ in-count>> ] [ out-count>> ] bi ; inline
\ No newline at end of file
+ [ <counting-stream> ] dip [ with-input-stream ] keepd [ in-count>> ] [ out-count>> ] bi ; inline
+