F.From_input
module I : S.INPUT
type 'a ll =
| Cons of 'a * unit -> 'a ll I.t
| End
a lazy list
val openstream : int64 option -> I.fd -> Fragment.t ll I.t
produce a stream of Fragment.ts from a vhd stream, using constant space