CLASS Box
    PROCEDURE NEW(Number : INTEGER)
    ENDPROCEDURE
ENDCLASS
DECLARE Items : ARRAY[1:2] OF Box(1)