7 . ('.̇' x ($2 < $3 ? $2 : $3)) # min($2,$3) without losing captures
14 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 }],
15 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 }],
17 map { pack 'W*', map { hex "1D$_" } unpack '(A3)*', $_ } qw{
18 8F7a9c 847a9c 86Da9c 801a9c 84Aa9c
19 8CEa9c 8F0 815aa2 892a9c 892a9c9A2aac
21 819a9c 876a9c 840a9caA1 8F0a9caA1 81Aa9c
22 903a9c 8FBa9c 815a9c 80Ea9c 887a9c
23 806a9c 89Aa9c 800a9c945aaa
25 brai => [qw{ ⠁ ⠃ ⠉ ⠙ ⠑ ⠋ ⠛ ⠓ ⠊ ⠚ ⠅ ⠇ ⠍ ⠝ ⠕ ⠏ ⠟ ⠗ ⠎ ⠞ ⠥ ⠧ ⠺ ⠭ ⠽ ⠵ }],
26 morse => [map {tr/.-/‧‑/r} qw{
27 .- -... -.-. -.. . ..-. --. .... .. .--- -.- .-.. --
28 -. --- .--. --.- .-. ... - ..- ...- .-- -..- -.-- --..
31 11 12 13 14 15 21 22 23 24 -24 25 31 32
32 33 34 35 41 42 43 44 45 51 52 53 54 55
35 11 12 13 14 21 22 23 24 31 -31 -13 32 33
36 34 41 42 -13 43 44 15 51 52 53 -25 -31 54