7 . ('.̇' x ($2 < $3 ? $2 : $3)) # min($2,$3) without losing captures
13 my %C = qw(red #EC1C24 blue #3953A3 yellow #F9EC31 black #231F20);
16 latn => [qw{ a b c d e f g h i j k l m n o p q r s t u v w x y z }],
17 latfsuet => [qw{ a b c d e f g h i j k l m n o p q r ſ s t u v w x y z }],
19 map { pack 'W*', map { hex "1D$_" } unpack '(A3)*', $_ } qw{
20 8F7a9c 847a9c 86Da9c 801a9c 84Aa9c
21 8CEa9c 8F0 815aa2 892a9c 892a9c9A2aac
23 819a9c 876a9c 840a9caA1 8F0a9caA1 81Aa9c
24 903a9c 8FBa9c 815a9c 80Ea9c 887a9c
25 806a9c 89Aa9c 800a9c945aaa
27 brai => [qw{ ⠁ ⠃ ⠉ ⠙ ⠑ ⠋ ⠛ ⠓ ⠊ ⠚ ⠅ ⠇ ⠍ ⠝ ⠕ ⠏ ⠟ ⠗ ⠎ ⠞ ⠥ ⠧ ⠺ ⠭ ⠽ ⠵ }],
28 morse => [map {tr/.-/‧‑/r} qw{
29 .- -... -.-. -.. . ..-. --. .... .. .--- -.- .-.. --
30 -. --- .--. --.- .-. ... - ..- ...- .-- -..- -.-- --..
33 11 12 13 14 15 21 22 23 24 -24 25 31 32
34 33 34 35 41 42 43 44 45 51 52 53 54 55
37 11 12 13 14 21 22 23 24 31 -31 -13 32 33
38 34 41 42 -13 43 44 15 51 52 53 -25 -31 54
41 map { '<svg width="20" height="20" viewBox="0 0 30 30">'.$_.'</svg>' }
43 <path fill="$C{blue}" d="M0,0 h30 l-7.5,15 7.5,15 h-30 z"/>
44 <path fill="white" d="M0,0 h15 v30 h-15"/>
46 <path fill="$C{red}" d="M0,0 h30 l-7.5,15 7.5,15 h-30 z"/>
48 <path fill="$C{blue}" d="M0,0 h30v30 h-30z"/>
49 <path fill="white" d="M0,6 h30 v18 h-30" />
50 <path fill="$C{red}" d="M0,12 h30 v6 h-30" />
52 <path fill="$C{yellow}" d="M0,0 h30v30 h-30z"/>
53 <path fill="$C{blue}" d="M0,6 h30 v18 h-30"/>
55 <path fill="$C{red}" d="M0,0 h30v30 h-30z"/>
56 <path fill="$C{blue}" d="M0,0 h30 v15 h-30"/>
58 <path fill="white" d="M0,0 h30v30 h-30z"/>
59 <path fill="$C{red}" d="M15,0 l15,15 -15,15 -15,-15"/>
61 <path fill="$C{blue}" d="M0,0 h30v30 h-30z"/>
62 <path fill="$C{yellow}" d="M 0,0 h5 v30 h-5"/>
63 <path fill="$C{yellow}" d="M10,0 h5 v30 h-5"/>
64 <path fill="$C{yellow}" d="M20,0 h5 v30 h-5"/>
66 <path fill="$C{red}" d="M0,0 h30v30 h-30z"/>
67 <path fill="white" d="M0,0 h15 v30 h-15"/>
69 <path fill="$C{yellow}" d="M0,0 h30v30 h-30z"/>
70 <circle fill="black" r="7.5" cx="15" cy="15"/>
72 <path fill="$C{blue}" d="M0,0 h30v30 h-30z"/>
73 <path fill="white" d="M0,10 h30 v10 h-30"/>
75 <path fill="$C{blue}" d="M0,0 h30v30 h-30z"/>
76 <path fill="$C{yellow}" d="M0,0 h15 v30 h-15"/>
78 <path fill="$C{black}" d="M0,0 h30v30 h-30z"/>
79 <path fill="$C{yellow}" d="M0,0 h15 v15 h-15 M15,15 h15 v15 h-15"/>
81 <path fill="white" d="M0,0 h30v30 h-30z"/>
82 <path fill="$C{blue}" d="M4,0h22l-11,11 M4,30h22l-11,-11 M0,4v22l11,-11 M30,4v22l-11,-11"/>
83 <!--path fill="$C{blue}" d="M3,0h24l-12,12 M3,30h24l-12,-12 M0,3v24l12,-12 M30,3v24l-12,-12"/-->
85 <path fill="white" d="M0,0 h30v30 h-30z"/>
86 <path fill="$C{blue}" d="
87 M0,0 h7.5v7.5h-7.5 m0,7.5h7.5v7.5h-7.5
88 m7.5,-15 h7.5v7.5h-7.5 m0,7.5h7.5v7.5h-7.5
89 m7.5,-30 h7.5v7.5h-7.5 m0,7.5h7.5v7.5h-7.5
90 m7.5,-15 h7.5v7.5h-7.5 m0,7.5h7.5v7.5h-7.5
93 <path fill="$C{yellow}" d="M0,0 h30v30 h-30z"/>
94 <path fill="$C{red}" d="M0,0 h30 v30"/>
96 <path fill="$C{blue}" d="M0,0 h30v30 h-30z"/>
97 <path fill="white" d="M10,10 h10 v10 h-10"/>
99 <path fill="$C{yellow}" d="M0,0 h30v30 h-30z"/>
101 <path fill="$C{red}" d="M0,0 h30v30 h-30z"/>
102 <path fill="$C{yellow}" d="M12.5,0 v30 h5 v-30"/>
103 <path fill="$C{yellow}" d="M0,12.5 h30 v5 h-30"/>
105 <path fill="white" d="M0,0 h30v30 h-30z"/>
106 <path fill="$C{blue}" d="M10,10 h10 v10 h-10"/>
108 <path fill="white" d="M0,0 h30v30 h-30z"/>
109 <path fill="$C{red}" d="M0,0 h10 v30 h-10"/>
110 <path fill="$C{blue}" d="M20,0 h10 v30 h-10"/>
112 <path fill="white" d="M0,0 h30v30 h-30z"/>
113 <path fill="$C{red}" d="M0,0 h15 v15 h-15 M15,15 h15 v15 h-15"/>
115 <path fill="$C{red}" d="M0,0 h30v30 h-30z"/>
116 <path fill="white" d="M4,0h22l-11,11 M4,30h22l-11,-11 M0,4v22l11,-11 M30,4v22l-11,-11"/>
118 <path fill="$C{blue}" d="M0,0 h30v30 h-30z"/>
119 <path fill="white" d="M5,5 h20 v20 h-20"/>
120 <path fill="$C{red}" d="M10,10 h10 v10 h-10"/>
122 <path fill="white" d="M0,0 h30v30 h-30z"/>
123 <path fill="$C{blue}" d="M12.5,0 v30 h5 v-30"/>
124 <path fill="$C{blue}" d="M0,12.5 h30 v5 h-30"/>
126 <path fill="$C{red}" d="M0,0 h30v30 h-30z"/>
127 <path fill="$C{yellow}" d="M0,0h6l-6,6 M12,0h6l-18,18v-6 M24,0h6l-30,30v-6
128 M30,6v6l-18,18h-6 M30,18v6l-6,6h-6"/>
130 <path fill="$C{black}" d="M0,0 h30v30 h-30z"/>
131 <path fill="$C{blue}" d="M30,0 v31 l-15,-15"/>
132 <path fill="$C{yellow}" d="M0,0 h31 l-15,15"/>
133 <path fill="$C{red}" d="M0,30 h31 l-15,-15"/>