type
  Animal = class end;
  Dog = class(Animal) end;
  Cat = class(Animal) end;
  Lab = class(Dog) end;
  Collie = class(Dog) end;