find all Nd chars

Nd.p6

my %h;
for ^0xFFFF {
    if .chr.uniprop eq 'Nd' {
        %h{.unival}.push: $_
    }
    elsif $_ >= 'a'.ord && $_ <= 'z'.ord {
        %h{$_ - 'a'.ord + 10}.push: $_
    }
    elsif $_ >= 'A'.ord && $_ <= 'Z'.ord {
        %h{$_ - 'A'.ord + 10}.push: $_
    }
    elsif $_ >= 0xFF21 && $_ <= 0xFF3A {
        %h{$_ - 0xFF21 + 10}.push: $_
    }
    elsif $_ >= 0xFF41 && $_ <= 0xFF5A {
        %h{$_ - 0xFF41 + 10}.push: $_
    }
}

for %h.keys.sort(+*) -> $val {
    for @(%h{$val}) -> $char {
        say "case $char:";
    }
    say "    ch = $val;\n    break;"
}
say "default:\n    goto END_WHILE"