Code factoring using new class REGULAR-CLASS.