CLASS Box
    PROCEDURE NEW()
    ENDPROCEDURE
    PROCEDURE new(Number : INTEGER)
    ENDPROCEDURE
ENDCLASS