Function loop

packages/effect/test/STM.test.ts:69–77

(_n: number, _acc: STM.STM<number>)

  next: (stm: STM.STM<number>) => STM.STM<number>
): Effect.Effect<number> => {
  const loop = (_n: number, _acc: STM.STM<number>): Effect.Effect<number> => {
    let n = _n
    let acc = _acc
    while (n > 0) {
      acc = next(acc)
      n = n - 1
    }
    return STM.commit(acc)
  }
  return loop(depth, STM.succeed(0))
}