#! /usr/bin/perl

use Kconv;

%C = ();

@K = split //, "0123456789abcdefghijklmnopqrstuvwxyz";

while (<>) {
    chomp;
    $buf = &kconv($_, _EUC);
    $out = '';
    while ($buf ne '' && $buf =~ /^(.*?)<A HREF="(.*?)" ACCESSKEY="(.*?)">(.*)$/) {
	defined($C{$2}) or $C{$2} = shift @K;
	$k = $C{$2};
	$out .= sprintf("%s<A HREF=\"%s\" ACCESSKEY=\"%s\">", $1, $2, $k);
	$buf = $4;
    }
    $out .= $buf;
    print &kconv($out, _JIS), "\n";
}