#!/usr/bin/perl

%replace_table =
    (
     'a'  ,'a',
     'ba' ,'b',
     'be' ,'b',
     'bi' ,'b',
     'bo' ,'b',
     'bu' ,'b',
     'bya' ,'by',
     'bye','by',
     'byi','by',
     'byo','by',
     'byu','by',
     'ca','c',
     'ce','c',
     'cha','c',
     'che','c',
     'chi','t',
     'cho','c',
     'chu','c',
     'ci','c',
     'co','c',
     'cu','c',
     'cya','c',
     'cye','c',
     'cyi','c',
     'cyo','c',
     'cyu','c',
     'da','d',
     'de','d',
     'dha','d',
     'dhe','d',
     'dhi','d',
     'dho','d',
     'dhu','d',
     'di','d',
     'do','d',
     'du','d',
     'dya','d',
     'dye','d',
     'dyi','d',
     'dyo','d',
     'dyu','d',
     'e','e',
     'fa','f',
     'fe','f',
     'fi','f',
     'fo','f',
     'fu','f',
     'ga','g',
     'ge','g',
     'gi','g',
     'go','g',
     'gu','g',
     'gwa','g',
     'gwe','g',
     'gwi','g',
     'gwo','g',
     'gwu','g',
     'gya','gy',
     'gye','gy',
     'gyi','gy',
     'gyo','gy',
     'gyu','gy',
     'ha','h',
     'he','h',
     'hi','h',
     'ho','h',
     'hu','h',
     'hya','hy',
     'hye','hy',
     'hyi','hy',
     'hyo','hy',
     'hyu','hy',
     'i','i',
     'ja','j',
     'je','j',
     'ji','z',
     'jo','j',
     'ju','j',
     'jya','j',
     'jye','j',
     'jyi','j',
     'jyo','j',
     'jyu','j',
     'ka','k',
     'ke','k',
     'ki','k',
     'ko','k',
     'ku','k',
     'kwa','k',
     'kwe','k',
     'kwi','k',
     'kwo','k',
     'kwu','k',
     'kya','ky',
     'kye','ky',
     'kyi','ky',
     'kyo','ky',
     'kyu','ky',
     'la','l',
     'le','l',
     'li','l',
     'lo','l',
     'lu','l',
     'lwa','l',
     'lya','y',
     'lye','y',
     'lyi','y',
     'lyo','y',
     'lyu','y',
     'ma','m',
     'me','m',
     'mi','m',
     'mo','m',
     'mu','m',
     'mya','my',
     'mye','my',
     'myi','my',
     'myo','my',
     'myu','my',
     'n','n',
     'na','n',
     'ne','n',
     'ni','n',
     'nn','n',
     'no','n',
     'nu','n',
     'nya','ny',
     'nye','ny',
     'nyi','ny',
     'nyo','ny',
     'nyu','ny',
     'o','o',
     'pa','p',
     'pe','p',
     'pi','p',
     'po','p',
     'pu','p',
     'pya','py',
     'pye','py',
     'pyi','py',
     'pyo','py',
     'pyu','py',
     'qa','q',
     'qe','q',
     'qi','q',
     'qo','q',
     'qu','q',
     'qya','q',
     'qye','q',
     'qyi','q',
     'qyo','q',
     'qyu','q',
     'ra','r',
     're','r',
     'ri','r',
     'ro','r',
     'ru','r',
     'rya','ry',
     'rye','ry',
     'ryi','ry',
     'ryo','ry',
     'ryu','ry',
     'sa','s',
     'se','s',
     'sha','sy',
     'she','sy',
     'shi','sy',
     'sho','sy',
     'shu','sy',
     'si','s',
     'so','s',
     'su','s',
     'sya','sy',
     'sye','sy',
     'syi','sy',
     'syo','sy',
     'syu','sy',
     'ta','t',
     'te','t',
     'tha','t',
     'the','t',
     'thi','t',
     'tho','t',
     'thu','t',
     'ti','t',
     'to','t',
     'tsa','t',
     'tse','t',
     'tsi','t',
     'tsu','t',
     'tu','t',
     'tso','t',
     'tya','c',
     'tye','c',
     'tyi','c',
     'tyo','c',
     'tyu','c',
     'u','u',
     'va','v',
     've','v',
     'vi','v',
     'vo','v',
     'vu','v',
     'wa','w',
     'we','w',
     'wi','w',
     'wo','w',
     'wu','w',
     'xa','x',
     'xe','x',
     'xi','x',
     'xo','x',
     'xtu','x',
     'xtsu','x',
     'xu','y',
     'xwa','w',
     'xya','y',
     'xye','y',
     'xyi','y',
     'xyo','y',
     'xyu','y',
     'ya','y',
     'ye','y',
     'yi','y',
     'yo','y',
     'yu','y',
     'za','z',
     'ze','z',
     'zi','z',
     'zo','z',
     'zu','z',
     'zya','j',
     'zye','j',
     'zyi','j',
     'zyo','j',
     'zyu','j',
     '-','-',
     '.','.',
     ',',',',
     'zyu','j'
     );


foreach(keys %replace_table){
    $pattern{quotemeta($_)} = 1;
};
$pattern = join('|',sort {return 1 if($a =~ /^\\/); return -1 if($b =~ /^\\/);length($b) <=> length($a)} keys %pattern);

while(<>){
    ($yomi,$word) = split(/\t/,$_,2);
    $in = "";
    while($yomi =~ s/^($pattern)//){
	$in .= $replace_table{$1};
    }
    print "$in\t$word";
}