russia(X):-rchange(X,Z),F="ソビエトロシアでは，~s",format(F,[Z]).
 
rchange(X,Z):-pref(X,Y,[V|W]),pref(W,S,T),append([],S,A1),append(A1,[V],A2),append(A2,Y,A3),append(A3,T,Z).
 
pref([X|Y],[],[X|Y]):-joshi(X),!.
pref([X|Y],[X|W],Z):-pref(Y,W,Z).
 
joshi(X):-eq(X,"が").
joshi(X):-eq(X,"は").
joshi(X):-eq(X,"を").
joshi(X):-eq(X,"に").
joshi(X):-eq(X,"で").
joshi(X):-eq(X,"も").
joshi(X):-eq(X,"へ").
 
eq(X,[X|_]).
 
append([],L,L).
append([E|L1],L2,[E|L]):-append(L1,L2,L).
 
 

cnVzc2lhKFgpOi1yY2hhbmdlKFgsWiksRj0i44K944OT44Ko44OI44Ot44K344Ki44Gn44Gv77yMfnMiLGZvcm1hdChGLFtaXSkuCgpyY2hhbmdlKFgsWik6LXByZWYoWCxZLFtWfFddKSxwcmVmKFcsUyxUKSxhcHBlbmQoW10sUyxBMSksYXBwZW5kKEExLFtWXSxBMiksYXBwZW5kKEEyLFksQTMpLGFwcGVuZChBMyxULFopLgoKcHJlZihbWHxZXSxbXSxbWHxZXSk6LWpvc2hpKFgpLCEuCnByZWYoW1h8WV0sW1h8V10sWik6LXByZWYoWSxXLFopLgoKam9zaGkoWCk6LWVxKFgsIuOBjCIpLgpqb3NoaShYKTotZXEoWCwi44GvIikuCmpvc2hpKFgpOi1lcShYLCLjgpIiKS4Kam9zaGkoWCk6LWVxKFgsIuOBqyIpLgpqb3NoaShYKTotZXEoWCwi44GnIikuCmpvc2hpKFgpOi1lcShYLCLjgoIiKS4Kam9zaGkoWCk6LWVxKFgsIuOBuCIpLgoKZXEoWCxbWHxfXSkuCgphcHBlbmQoW10sTCxMKS4KYXBwZW5kKFtFfEwxXSxMMixbRXxMXSk6LWFwcGVuZChMMSxMMixMKS4KCg==

cnVzc2lhKCZxdW90O+OBguOBquOBn+OBjOODiOOCpOODrOOCkua1geOBme+8jiZxdW90OykuCnJ1c3NpYSgmcXVvdDvjgYLjgarjgZ/jgYzjg5bjg6zjg7zjgq3jgpLlvLfjgY/ouI/jgoDvvI4mcXVvdDspLgpydXNzaWEoJnF1b3Q744GC44Gq44Gf44GM44OX44Ot44Kw44Op44Og44KS5a6f6KGM44GZ44KL77yOJnF1b3Q7KS4KcnVzc2lhKCZxdW90O+OBguOBquOBn+OBjOeskeemj+S6rem2tOWFieOBq+S4i+ODjeOCv+OCkuiogOOCj+OBm+OCi++8jiZxdW90OykuCnJ1c3NpYSgmcXVvdDvjgYLjgarjgZ/jgYzjgqjjg63mnKzjgafoiIjlpa7jgZnjgovvvI4mcXVvdDspLgo=

russia("あなたがトイレを流す．").
russia("あなたがブレーキを強く踏む．").
russia("あなたがプログラムを実行する．").
russia("あなたが笑福亭鶴光に下ネタを言わせる．").
russia("あなたがエロ本で興奮する．").