type t0 = class end; A = class; B = class(t0) end; A = class end; begin end.