/**
 * Like `unfold`, but allows the emission of values to end one step further than
 * the unfolding of the state. This is useful for embedding paginated APIs,
 * hence the name.
 *
 * @tsplus static effect/core/stream/Stream.Ops paginate
 */
export function paginate<S, A>(s: S, f: (s: S) => readonly [A, Maybe<S>]): Stream<never, never, A> {
  return Stream.paginateChunk(s, (s) => {
    const [a, maybeS] = f(s)
    return [Chunk.single(a), maybeS] as const
  })
}