arr |> Array2D.iter( fun x -> sum := !sum + x)
let str = Console.ReadLine()
let setArray2D (arr: int[,]) i vals = arr.[i, *] <- vals
let res = Array2D.zeroCreate 6 6
let hourglass row col (arr:int[,]) =
let m = arr |> Array2D.length1
let n = arr |> Array2D.length2
| r, c when r <= (m - 3) && c <= ( n - 3) ->
let res = Array2D.zeroCreate<int> 3 3
Array2D.blit arr row col res 0 0 3 3
res |> Array2D.sum |> Some
let m = arr |> Array2D.length1
let n = arr |> Array2D.length2
let solution = readArray >> maxHg