#!/usr/local/bin/jperl -Pw

# ATOK7/ATOK8/�¼‘ù V3/DFJ‚̃†�[ƒUŽ«�‘(ƒeƒLƒXƒg)‚ð
# SKK‚ÌŽ«�‘‚É•ÏŠ·‚·‚é
# written by nmaeda (Aug/1994)

$backup="";
$line="";

while(<>)	{
	chop;

	if(/[!-ß]/)	{	# half-width kana to full-width
		s/\([¦-ß]\)�[/\1°/g;
		tr/§±¨²©³ª´«µ¶·¸¹º»¼½¾¿ÀÁ¯ÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓ¬Ô­Õ®Ö×ØÙÚÛܦÝÞß/ƒ@ƒAƒBƒCƒDƒEƒFƒGƒHƒIƒJƒLƒNƒPƒRƒTƒVƒXƒZƒ\ƒ^ƒ`ƒbƒcƒeƒgƒiƒjƒkƒlƒmƒnƒqƒtƒwƒzƒ}ƒ~ƒ€ƒ�ƒ‚ƒƒƒ„ƒ…ƒ†ƒ‡ƒˆƒ‰ƒŠƒ‹ƒŒƒ�ƒ�ƒ’ƒ“�J�K/;
		tr/¡¤¢£°/�B�A�u�v�[/;

		s/ƒJ�J/ƒK/g; s/ƒL�J/ƒM/g; s/ƒN�J/ƒO/g; s/ƒP�J/ƒQ/g; s/ƒR�J/ƒS/g;
		s/ƒT�J/ƒU/g; s/ƒV�J/ƒW/g; s/ƒX�J/ƒY/g; s/ƒZ�J/ƒ[/g; s/ƒ\�J/ƒ]/g;
		s/ƒ^�J/ƒ_/g; s/ƒ`�J/ƒa/g; s/ƒc�J/ƒd/g; s/ƒe�J/ƒf/g; s/ƒg�J/ƒh/g;
		s/ƒn�J/ƒo/g; s/ƒq�J/ƒr/g; s/ƒt�J/ƒu/g; s/ƒw�J/ƒx/g; s/ƒz�J/ƒ{/g;
		s/ƒn�K/ƒp/g; s/ƒq�K/ƒs/g; s/ƒt�K/ƒv/g; s/ƒw�K/ƒy/g; s/ƒz�K/ƒ|/g;
		s/ƒE�J/ƒ”/g;

	}

	@array=split(/,/);
	$array[0]=~tr/ƒ@-ƒ“/‚Ÿ-‚ñ/;
	$array[1]=~s/"//g;

	if($backup!~/^$array[0]$/)	{	# New entry
		if($line!~/^$/)	{
			printf("%s\n", $line);
		}
		$line=sprintf("%s /%s/", $array[0], $array[1]);
	} else	{				# continue
		$line=$line.$array[1]."/";
	}
	$backup=$array[0];
}
printf("%s\n", $line);