let
forStream strm func =
Stream
.iter func strm