let batchSplit<'a> n (xs: 'a seq) =
    let rec loop n (enum: IEnumerator<'a>) prevResult =
        seq {
            if prevResult then
                yield
                    seq {
                        let mutable i = 0
                        yield enum.Current

                        while i < (n - 1) && enum.MoveNext() do
                            i <- i + 1
                            yield enum.Current
                    }

                yield! loop n enum (enum.MoveNext())
        }

    let enum = xs.GetEnumerator()
    loop n enum (enum.MoveNext())