sub output {
        my $self = shift;
        $$self .= uc shift;
    }