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]