>>136 (4)だけです
% Prolog (正規表現との競争ということかな 少し負けるが・・)
% http://nojiriko.asia/prolog/t136.html
:- op(700,xfx,(=>)).
t136(Atom,X) :- 英語色日本語色ペアリストの作成(Atom,X).

英語色日本語色ペアリストの作成(Atom,X) :-
　　atom_chars(Atom,Chars),
　　文字ならびから英語色日本語色ペアリストの作成(Chars,X),!.

文字ならびから英語色日本語色ペアリストの作成([],[]).
文字ならびから英語色日本語色ペアリストの作成(L,[_英語色=>_日本語色|R]) :-
　　一語切り出す(L,L2,R1),
　　一語切り出す(R1,L3,R2),
　　atom_chars(_英語色色,L2),
　　atom_chars(_日本語色色,L3),
　　文字ならびから英語色日本語色ペアリストの作成(R2,R).

一語切り出す([],[],[]).
一語切り出す(['\t'|R1],[],R1).
一語切り出す([' '|R1],[],R1).
一語切り出す(['\n'|R1],[],R).
一語切り出す([A|R1],[A|R2],R) :-
　　一語切り出す(R1,R2,R).