Code factoring using class REGULAR-CLASS.