sub header {
    my($self,@p) = self_or_default(@_);