RosettaCodeData/Task/Multi-dimensional-array/F-Sharp/multi-dimensional-array.fs

let d4=Array4D.init 3 4 5 6 (fun n i g l->n,i,g,l)
printfn "%A %A" d4[1,2,3,4] d4[2,3,4,5]
	`let d4=Array4D.init 3 4 5 6 (fun n i g l->n,i,g,l)`
	`printfn "%A %A" d4[1,2,3,4] d4[2,3,4,5]`