unit ub0421b ; interface {$mode objfpc} uses ub0421c; type cl2=class(cl1) end; implementation end.