sub writeBasicTag {
    for (@_) {
        $writer->startTag($_);
        $writer->characters($stuff{$_});
        $writer->endTag($_);
    }
    1;
}