Перевод списка из чисел в список слов - Prolog

domains
int=integer
intl=int*
strl=string*
 
predicates
int2str(int,string)
task(intl,strl)
 
clauses
int2str(N,S) :- N<=9, M=48+N, char_int(Q,M), frontchar(S,Q,""),!.
int2str(N,S) :- M=(N mod 10), MM=48+M, char_int(Q,MM), frontchar(Z,Q,""), D=(N div 10), int2str(D,SS), concat(SS,Z,S).
 
task([],[]).
task([H|T],[SH|ST]) :- int2str(H,SH), task(T,ST).