sub new_d {
    my $self = shift;
    if (@_) {
        $self->{_d} = D->new(@_);
    }
    return $self->{_d};
}