#!/usr/bin/env perl
#
#	SKK辞書をPOBox辞書に変換する
#
#	$Date: 2001/02/04 13:56:01 $
#	$Revision: 1.1 $
#
#	% skkdic2kanadic SKK-JISYO.L | kanadic2romadic > poboxdic
#

while(<>){
	chop;
	next if /^;/;

	($y,$l) = split;
	$l =~ s/^\///;
	$l =~ s/\/$//;
        $l =~ s/\[.+$//;
	@w = split(/\//,$l);
	for $w (@w){
		print "$y\t$w\n";
	}
}