let of_lazy s =
  let next i = next (Lazy.force s) in
  from next