Using Swi-Prolog

Suppose we are given a knowledge base with the following facts: Write a predicate listtran(G,E) which translates a list of German number words to the corresponding list of English number words. tran(eins,one). tran(zweitwo). tran(drei,three). tran(vier,four). tran(fuenf,five). tran(sechs,six). tran(sieben,seven). tran(acht,eight). tran(neun,nine). For example: listtran([eins, neun, zwei],x). should give: X = [one, nine, two]. Your program should also work in the other direction. For example: listtran(x,[one, seven, six, two]). should return: X = [eins, sieben, sechs, zwei]. Hint: to answer this question, first ask yourself 'How do I translate the empty list of number words?' That's the base case. For non-empty lists, first translate the head of the list, and then use recursion to translate the tail