#!/usr/bin/env perl

require 'rklist_pbt_he.pl';
require 'romakana.pl';

while(<>){
	if(/^#/){
		print;
		next;
	}
	chop;
	@a = split(/\t/);
	if($a[0] =~ /^[\x80-\xff]/){
            if($a[0] =~ /^(.+)([a-z])$/){
                $hira = $1;
                $okuri = $2;
            } else {
                $hira = $a[0];
                $okuri = '';
            }
		$s = &kana2roma($hira);
		@s = split(/,/,$s);
		$a[0] = $s[0] . $okuri;
            if($okuri =~ /[aiueo]/){
                $or = &roma2kana($okuri);
                $a[1] .= $or;
            }
	}
	print join("\t",@a),"\n";
}