if ( $d->isAttributeNode ) {
	print qq(D=\n);
	print $d->string_value;
}