type c1 = class where T: c1; end; c2 = class(c1>) end; begin new c2; end.