random_state(7).
 N is random( Largest)+1 :-
	retract(random_state(Number)),
	RN is 15 * Number mod 2027,
	N is RN mod Largest + 1,
	asserta(random_state(RN)).
:- write(' Number is random( LargestNumber), nl+1, random_state(LastNumber) loaded!').