FParsec.Naive.Count.fs

let chop ints str =
    let values xs str = 
        let head = 0, List.head xs
        let middle = List.pairwise xs
        let tail = List.last xs, String.length str
        head :: middle @ [tail]
    
    let chars = [ for c in str -> c ]
    let chunk (skip, take) = List.take take chars |> List.skip skip
    let trim (x : string) = x.Trim ()

    values ints str
    |> List.map (chunk >> List.map string >> List.reduce (+) >> trim)

let prow = row |>> chop [10; 30; 50; 65; 68]