Four is magic

constant %name-of =
    0 => 'zero',  1 => 'one',
    2 => 'two',   3 => 'three',
    4 => 'four',  5 => 'five',
    6 => 'six',   7 => 'seven',
    8 => 'eight', 9 => 'nine',
;

multi take-magic-four(4) {
    take "four is magic"
}

multi take-magic-four(UInt $num where * < 10) {
    my $name = %name-of{$num};
    my $len  = $name.chars;
    
    take "$name is %name-of{$len}";
    take-magic-four $len
}

sub magic-four(UInt $num where * < 10) {
    gather { take-magic-four($num) }.join: ", "
}

for ^10 -> $num {
    say magic-four $num
}