вот так вроди откомпилило
let getColoredHistogram (mat:Mat) =
let rhx = Array.zeroCreate<int> 256
let ghx = Array.zeroCreate<int> 256
let bhx = Array.zeroCreate<int> 256
mat.ForEachAsVec3b(fun value _ ->
let byRef = NativePtr.toByRef value
let r = int byRef.Item0
let g = int byRef.Item1
let b = int byRef.Item2
rhx.[r] <- rhx.[r] + 1
ghx.[g] <- ghx.[g] + 1
bhx.[b] <- bhx.[b] + 1
)
(rhx, ghx, bhx)