?- consult('rn.pro').
% rn.pro compiled 0.00 sec, 1,488 bytes

Yes
?- rnPrint(4).
0
3
6
3

Yes
?- rnPrint(0).

Yes
?- rnPrint(7).
9
4
6
8
4
1
4

Yes
?- rnList(5,L).

L = [1, 6, 8, 5, 3]

Yes
?- rnList(10,L).

L = [1, 6, 4, 6, 1, 3, 8, 2, 0|...]

Yes
?- rnList(1,L).

L = [9]

Yes
?- halt.