sub _digit {
    my ($c,$x,$n) = @_;
    my $len = _len('',$x);
    ...
}