# Set up
L := [["a", "b", "c"],["A", "B", "C"], ["1", "2", "3"]];
M := Array(1..3, 1..3, L);

multi_loop := proc(M)
	local i, j;
	for i from 1 to upperbound(M, 1) do
		for j from 1 to upperbound(M, 2) do
			printf("%s", M[j, i]);
		end do;
		printf("\n");
	end do;
end proc:

multi_loop(M);