translate( 1 2 9 one two nine ) prolog programming

totext(0, ‘zero’).<br /> totext(1, ‘one’).<br /> totext(2, ‘two’).<br /> totext(3, ‘three’).<br /> totext(4, ‘four’).<br /> totext(5, ‘five’).<br /> totext(6, ‘six’).<br /> totext(7, ‘seven’).<br /> totext(8, ‘eight’).<br /> totext(9, ‘nine’).</p> <p>translate([], []).<br /> translate([Head|Rest], [TranslatedHead|TranslatedRest]) :-<br /> totext(Head, TranslatedHead),<br /> translate(Rest, TranslatedRest).<br />