type t0 = abstract class private constructor := exit; end; t1 = class where T: t0, constructor; end; begin new t1; end.