Turbo Prolog

[Friends]

Как сделать чтобы работало?

Разработать программу печатающую все цифры введенного с клавиатуру числа

domains
predicates
cifri(integer,integer)
clauses
cifri(X,Y):-X<10,Y=X.
cifri(X,Y):-Y=X mod 10, write(Y), X1=X div 10,cifri(X1,Y).
cifri(X,Y):-Y>10,X=Y.
cifri(X,Y):-X=Y div 10, write(X), Y=X1 mod 10,cifri(X1,Y).
goal
write("vvedite N:"),readint(X),nl,
cifri(X,Y),write(Y), nl.

[rrrFer]

можно преобразовать число в строку(для этого есть стандартные функции). Ну и вывести эту строку