#!/usr/bin/perl -w

use strict;

our %done;

while (<>) {
    next unless s/^name:\s+//;
    next if m/iso8859-(?!1\b)/;
    next if m/\bkoi8\b/;
    my $other = $_;
    $other =~ s/\b(iso8859-1|microsoft-cp1251|paratype-\w+|muleipa-1|jisx0201\.1976-0)\b/iso10646-1/;
    next if $done{$other};
    $done{$_}++;
}

foreach my $bold (keys %done) {
    my $medium = $bold;
    next unless $medium =~ s/\bbold\b/medium/;
    delete $done{$bold} if $done{$medium};
}

foreach my $bold (keys %done) {
    my $medium = $bold;
    next unless $medium =~ s/-bold-/-/;
    delete $done{$bold} if $done{$medium};
}

foreach (sort keys %done) {
#    print;
    chomp;
    print "xterm -fn '$_' -e '(echo $_; man ascii) |less' &\n";
}