batch.fs

module Seq =
    let private spill (n:int) (s:seq<'a>)  = 
        let en = s.GetEnumerator()
        let pos = ref 0
        let lst = [ while !pos < n && en.MoveNext() do 
                        pos := !pos+1  
                        yield en.Current]
        if lst |> List.isEmpty then None else
            Some((lst, seq { while en.MoveNext() do yield en.Current}))  

    [<CompiledName("Batch")>]
    let batch (batchSize :int) =
        Seq.unfold (spill batchSize)