RosettaCodeData/Task/Multi-dimensional-array/ALGOL-68/multi-dimensional-array-6.alg

a[ 3 : 4, 1, 1, 1 ] := a[ 5, 4, 2 : 3, 1 ];