package timesub is

  type my_array is sequence(10000) of rpc_byte;

  procedure test ( seq : my_array );

end timesub;