let
njunk strm n =
for
i = 1
to
n
do
Stream
.junk strm
done