CLASS Box
    PROCEDURE NEW(Other : Box)
    ENDPROCEDURE
ENDCLASS
DECLARE Item : Box(NEW Box)