DECLARE
  TYPE varray_type IS VARRAY(10) OF NUMBER;
  varray varray_type := varray_type(1, 2, 3, 4, 5, 6);
  TYPE varray_string is VARRAY(10) OF VARCHAR2(5);
  test_string varray_string := varray_string('A','B');
BEGIN
  DBMS_OUTPUT.PUT_LINE('varray.COUNT = ' || varray.COUNT);
  DBMS_OUTPUT.PUT_LINE('varray.LIMIT = ' || varray.LIMIT);
  DBMS_OUTPUT.PUT_LINE('varray.FIRST = ' || varray.FIRST);
  DBMS_OUTPUT.PUT_LINE('varray.LAST = ' || varray.LAST);
  varray.EXTEND(2, 4);
  DBMS_OUTPUT.PUT_LINE('varray.LIMIT = ' || varray.LIMIT);
  DBMS_OUTPUT.PUT_LINE('varray.LAST = ' || varray.LAST);
  DBMS_OUTPUT.PUT_LINE('varray(' || varray.LAST || ') = ' ||
                       varray(varray.LAST));
  -- Trim last two elements
  varray.TRIM(2);
  DBMS_OUTPUT.PUT_LINE('varray.LAST = ' || varray.LAST);
  DBMS_OUTPUT.PUT_LINE('varray.LAST = ' || test_string(1));
END;