Numpad Notation Translator

my %dict = (1..4,6..9).flat Z=>

(«‘south west’ downwards ‘south east’ leftwards rightwards ‘north west’ upwards ‘north east’» X~ ‘ triangle-headed arrow’)».parse-names;

%dict<5> = ‘rotated light four pointed black cusp’.parse-names;

%dict{$_} = “negative circled latin capital letter $_”.parse-names for ‘A’..‘Z’;

say $*IN.slurp.comb.map({%dict{$_} || $_}).join;