equal(0,zero).
equal(1,one).
equal(2,two).
equal(3,three).
equal(4,four).
equal(5,five).
equal(6,six).
equal(7,seven).
equal(8,eight).
equal(9,nine).

translate([H1|T1] , [H2][T2]) :-
    equal(H1,Translated),
    write(H2, " = " , Translated),
	translate(T1,T2).