package RANDOM is --a crude random number generator (after Paige 90)
	MODULUS: constant := 2#1#E13;
	subtype SMALL is INTEGER range 0..MODULUS;
	procedure INIT(X0:in SMALL); -- Sets X0 as Initial Value
	function  NEXT return SMALL; -- gives next number in sequence
end RANDOM;