如何在表格中显示SWI-Prolog程序的结果？(CLP问题)

multiply_table(N, Table) :-
    findall(Row, multiply_row(N, Row), Table).

multiply_row(N, Row) :-
    findall(Result, multiply(N, Result), Row).

multiply(N, Result) :-
    between(1, 10, X),
    Result is N * X.

?- consult('multiply_table.pl').

?- multiply_table(5, Table).

?- format('<table>~n', []),
   format_rows(Table),
   format('</table>~n', []).

format_rows([]).
format_rows([Row|Rows]) :-
    format('<tr>~n'),
    format_cells(Row),
    format('</tr>~n'),
    format_rows(Rows).

format_cells([]).
format_cells([Cell|Cells]) :-
    format('<td>~w</td>~n', [Cell]),
    format_cells(Cells).