main module STRANGE

    declare
	T is array [1..?N] of integer
    enddeclare

    procedure JOE (A:T, B:T)
    endprocedure
endmodule