04.11. Übersetzung

Gegeben eine Wissenbasis mit den folgenden Fakten:

tran(eins,one).
tran(zwei,two).
tran(drei,three).
tran(vier,four).
tran(fuenf,five).
tran(sechs,six).
tran(sieben,seven).
tran(acht,eight).
tran(neun,nine).

Schreibe ein Prädikat listtran(G,E) das deutsche Zahlenwörter in die entsprechenden englischen Zahlenwörter übersetzt.

?- listtran([eins,neun,zwei],X). 
X = [one,nine,two]. 

Dein Programm sollte auch in die andere Richtung funktionieren. Zum Beispiel:

?- listtran(X,[one,seven,six,two]).
X = [eins,sieben,sechs,zwei].