ar<-array(c(11:14,21:24,31:34),dim=c(2,2,3))
ar