-my @table = do 'writing-latn.inc.pl';
-if ($! or $@) {
- Alert("Table data not found", $@ || $!);
-}
-else {
+my @table = Data('writing-latn');
+{
+ say '<div>';
+ say '<style>';
+ for my $row (pairs @table) {
+ my ($id, $info) = @{$row};
+ my $style = $info->{style} or next;
+ ref $style or $style = [$style];
+ say "\t", !/^@/ && "#$id ", $_ for @{$style};
+ }
+ say "</style>\n";
+
+ my %VOWELCOLS = (map { ($_ => 1) } 0, 4, 8, 14, 20, 24);