begin

routine printarrayname(integerarrayname A)
end

integerarray RA(0:1)

printarrayname(RA)

integerarrayname RAN

RAN == RA

printarrayname(RAN)

endofprogram