Вывести значения факториала в порядке возрастания и убывания - Prolog

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

Вывести значения факториала в порядке возрастания и убывания. В моей программе он считает в порядке возрастания и убывания:1*2*3... и 3*2*1 и тд. А надо, чтобы просто выводил по убыванию, т.е.: 1, 2, 6 и 6,2,1

implement fn  
open core  
 
class predicates 
    factorial:(integer,integer)procedure(i,o).
    factorial_2:(integer,integer)procedure(i,o).
    factorial_aux:(integer, integer,integer,integer)procedure(i,o,i,i).
    factorial_aux_2:(integer,integer,integer,integer)procedure(i,o,i,i).
clauses  
    classInfo("forms/fn", "1.0").
    factorial(N, FactN):- factorial_aux(N,FactN,1,1) .
    factorial_aux(N, FactN, I, P) :-
        I <= N, !,
        NewP = P * I,
        Newl =I+1,
        stdio::write(NewP),
        stdio::nl,
        factorial_aux(N, FactN, Newl, NewP).
        factorial_aux(_, FactN, _, P) :- FactN = P.
    %=========================
    factorial_2(N, FactN):- factorial_aux_2(N,FactN,N,1) .
    factorial_aux_2(N, FactN, I, P) :-
        I >= 2, !,
        NewP = P * I,
        Newl =I-1,
        stdio::write(NewP),
        stdio::nl,
        factorial_aux_2(N, FactN, Newl, NewP).
    factorial_aux_2(_, FactN, _, P) :- FactN = P.
    
    calculate(X):- 
        N= toterm(X),
        factorial(N, _),
        stdio::write("=============="),
        stdio::nl,
        factorial_2(N, _).  
end implement fn

Решение задачи: «Вывести значения факториала в порядке возрастания и убывания»

Листинг программы

1
2
6
24
120
==============
5
20
60
120
==============
120
24
6
2
1

Объяснение кода листинга программы

В данном коде на языке Prolog выводится значение факториала чисел от 1 до 5 в порядке возрастания и убывания. В первой части кода с помощью цикла while перебираются числа от 1 до 5 и вычисляется их факториал с помощью рекурсивной функции factorial. Во второй части кода с помощью цикла while перебираются числа от 5 до 1 в обратном порядке и вычисляется их факториал с помощью рекурсивной функции factorial. Выводимые значения факториала чисел от 1 до 5 в порядке возрастания и убывания: 1) 1 2) 2 3) 6 4) 24 5) 120