package B;

sub new {
    my $this= shift @_;
    my $type= shift @_;
    return "D$type"->new( @_ );
}