alternate stream bracket

def bracket[F[_], R, A](acquire: NF[F, R])(use: R => NF[F, Option[A]], release: R => NF[F, Unit]): NF[F, A] = {
  def go(cln: NF[F, A], p: NF[F, Option[A]]): NF[F, A] =
    await(p) flatMap { step =>
      step.head.cata(a => emit(a) ++ go(cln, step.tail), cln ++ go(empty, step.tail))
    }
      
  flatMap(acquire) { r =>
    val cleanup = drain[F, Unit, A](mask(release(r)))
    onError(go(cleanup, use(r))) { e => append(cleanup, fail(e)) }
  }
}