val make_stream : S.t -> ?window:[ `Memory of int | `Object of int ] -> ?depth:int -> S.Value.t list -> (stream * (Checkseum.Crc32.t * int64) S.Hash.Map.t Lwt_mvar.t, S.error) Stdlib.result Lwt.tGc.Makeval make_stream : S.t -> ?window:[ `Memory of int | `Object of int ] -> ?depth:int -> S.Value.t list -> (stream * (Checkseum.Crc32.t * int64) S.Hash.Map.t Lwt_mvar.t, S.error) Stdlib.result Lwt.t