class
	TEST

create
	make

feature -- Make


	make
		local
			x: INTEGER
		do
			Current[ 1 , 2 , 3 , 4 ]:=5
			x := Current[ 1 , 2 , 3 , 4 ]
		end

	item alias "[]" (i, j, k, l: INTEGER):INTEGER assign put
		do
		end

	put (v: INTEGER; i, j, k, l: INTEGER)
		do
		end

end