Demo List.pro lab4 part2

?- consult('list.pro').
% list.pro compiled 0.00 sec, 0 bytes

Yes
?- rnlist(5,Expr).

Expr = [1, 7, 1, 0, 1]

Yes
?- rnlist(8,Expr).

Expr = [8, 8, 7, 1, 3, 5, 1, 6]


Yes
?- rnlist(12,Expr), write(Expr).
[5, 5, 8, 5, 7, 2, 3, 0, 8, 9, 4, 7]

Expr = [5, 5, 8, 5, 7, 2, 3, 0, 8|...]

Yes
?-halt.