OVERLOAD PROCEDURE Same(a : ARRAY[1:2] OF INTEGER)
ENDPROCEDURE