+use 5.014;
use utf8;
use List::Util qw( pairs );
), # 0 for space
'', 1, 3 # start/end
],
+"D'ni" => [
+ map {
+ state $window = 'M-.5,-.5H8.5V8.5H-.5Z';
+ state $v = [
+ '',
+ 'M0,4 8,4',
+ 'M0,8 Q4,4 8,8',
+ 'M0,4 4,8 8,4',
+ 'M2,0 2,4 8,4',
+ 'M0,0 8,8 M0,8 8,0', # cross
+ 'M3.5,4 h1', # dot
+ ];
+ state $h = [
+ '',
+ 'M4,0 4,8',
+ 'M0,0 Q4,4 0,8',
+ 'M4,-.5 0,4 4,8.5',
+ 'M4,8 4,2 8,2',
+ ];
+ sprintf '<svg width="16" height="16" viewBox="-.5 -.5 9 9"><path d="%s"/></svg>',
+ $window . ($h->[$_ % 5] . $v->[$_ / 5] || $v->[6]);
+ } 0 .. 5*5
+],
'Pigpen' => [
map {
qq(<svg width="12" height="12" viewBox="-.5 -.5 7 7">$_</svg>)