Treat dashes and digits as valid chars in uninames

my %c; for 0..0x1FFFF { %c{$_} = 1 for .uniname.comb }; %c.keys.sort.join.say
OUTPUT:« ()-0123456789<>ABCDEFGHIJKLMNOPQRSTUVWXYZabdeghilnoprstuvwxy»

I am not including <> and () in the list.
Here is the list of stuff that has () or <> in a uniname:

<CJK Ideograph Extension A>
<CJK Ideograph>
<Hangul Syllable>
<Low Surrogate>
<Non Private Use High Surrogate>
<Private Use High Surrogate>
<Private Use>
<Tangut Ideograph>
<illegal>
<reserved>

CARRIAGE RETURN (CR)
FORM FEED (FF)
LINE FEED (LF)
NEXT LINE (NEL)

Author: AlexDaniel

Unicodable.p6

@@ -74,7 +74,7 @@ method process($message, $query is copy) {
 
     my @all;
 
-    if $query ~~ /^ <+[a..z] +[A..Z] +space>+ $/ {
+    if $query ~~ /^ <+[a..zA..Z] +[0..9] +[\-\ ]>+ $/ {
         my @words;
         my @props;
         for $query.words {