>>298
% Prolog

phon(_フォネティックコードファイル,_文字列) :-
　　assertz_フォネティックコード(_フォネティックコードファイル),
　　sub_atom(_文字列,_,1,_,A),
　　フォネティックコード(A,B),
　　write_formatted('%t ',[B]),
　　fail;
　　true.

assertz_フォネティックコード(_フォネティックコードファイル) :-
　　abolish(フォネティックコード/2),
　　get_lines(_フォネティックコード,Lines),
　　member(Line,Lines),
　　split(Line,[','],[A,B]),
　　assertz((フォネティックコード(A,B) :- !)),
　　fail;
　　assertz((フォネティックコード(A,A))).