OVERLOAD PROCEDURE same(BYREF a : ARRAY[3:4] OF INTEGER)
ENDPROCEDURE