Вывод значений в файл - Prolog

Формулировка задачи:

Доброе утро всем! Есть задачка: Нужно написать процедуру, которая будет выводить в файл таблицу умножения. Просто вывести получается. Помогите связать программку с файлом.Не знаю как вывести эти значения в файл.

interval(N,M):- N > M.
interval(N,M):- umnoshenie(1,9,N), 
                N1 is N + 1, 
                nl, 
                interval(N1,M).
 
umnoshenie(N,M,R):- N > M.
umnoshenie(N,M,Z):-R is Z * N,
                write(Z+"*"+N+"="+R), 
                nl, 
                N1 is N + 1, 
                umnoshenie(N1,M,Z).
 
?-interval(1,5).

А вот что выводит:

1*1=1
1*2=2
1*3=3
1*4=4
1*5=5
1*6=6
_._._._

Решение задачи: «Вывод значений в файл»

textual
                            Листинг программы 
                        
                            div(X,Y,F):-XY is X/Y, F is int(XY).
mod(X,Y,F):-F is X mod Y.
 
conv2(0,[]).
conv2(X,[H|T]):-div(X,10,X1), mod(X,10,H), conv2(X1,T).
 
conv(X,T):-conv2(X,T1), reverse(T1,T).
 
out2([]).
out2([H|T]):- H48 is H+48, put(H48), out2(T). 
 
out(X):-conv(X,X1), out2(X1). 
 
mul(X,Y):-tell('test.txt'), out(X), put(42), out(Y), put(61), XY is X*Y, out(XY), put(32), told.
 
table2(X,X):-mul(X,X),!.
table2(X,Y):-mul(X,Y), X1 is X+1, table2(X1,Y).
 
table(X,X):-table2(X,X),!.
table(X,Y):-table2(X,Y), Y1 is Y-1, tell('test.txt'), put(13), put(10), told, table(X,Y1).