sub define_vocabulary {
    my ($elems, $attrs) = @_;
    eval "sub $_(&) { _elem('$_',\@_) }"     for @$elems;
    eval "sub ${_}_(\$) { _attr('$_',\@_) }" for @$attrs;
}