multi sub to_num(Str $number where { $_ ~~ /^ \d+ $/ }) returns Num { +$number }
my $s = "10";
my $i = to_num($s);
say 'before: ' ~ $s.WHAT; # before: Str
say 'after : ' ~ $i.WHAT; # after : Num