+# personal addendums
+my @extra;
+if (-r 'shiar.inc.txt') {
+ open my $include, '<:utf8', 'shiar.inc.txt';
+ for (readline $include) {
+ m{^([!"%'-Z_a-z]{2}) (.)} or next;
+ warn("$1 already defined"), next if defined $di{$1};
+ $di{$1} = ord $2;
+ push @extra, $1;
+ }
+}
+warn $@ if $@;
+