Вывод списка чисел в виде диаграммы (звездочками) при условии - Prolog

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

Добрый вечер! Помогите пожалуйста реализовать вывод списка целых чисел в виде диаграммы(каждому числу соответствует определенное количество "*" при условии что если введенное число в списке больше 18, то должно выводиться сообщение, что ввели неверное число. Т.е. сначала нужно проверить числа на условие, а затем вывести диаграмму.

domains
list=integer*
 
predicates
vivod(list)
 
clauses
vivod([]).
vivod([X|Y]):-X=1,
write("*"),nl,
vivod(Y);
write("*"),X1=X-1,
vivod([X1|Y]).

Решение задачи: «Вывод списка чисел в виде диаграммы (звездочками) при условии»

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

                            domains
int=integer
intl=int*
 
predicates
output(int)
print_list(intl)
 
clauses
output(0) :- nl.
output(N) :- N>18,write("bad number"),nl.
output(N) :- N<0 ,write("bad number"),nl.
output(N) :- write('*'), N1=N-1,output(N1).
 
print_list([]).
print_list([H|T]) :- output(H),print_list(T).
                        