# If this was called from 'words_only', don't produce an individual digit
    my $words_only;
    {
        no warnings 'uninitialized';
        my @call = caller 1;
        $words_only = ( $call[3] eq __PACKAGE__ . '::words_only' );
    }