[31m-- Date := 2016-11-27 23:02:04 ; [m
[31m-- Version := 2016.17.1a ; [m
[01;34mwith[m Ada[31m.[mNumerics[31m.[mDiscrete_Random[31m;[m
[01;34mpackage[m Gnos[31m.[mLexical [01;34mis[m
	[31m-- Lexical is lexical Manger for Word Objects.[m
	[01;34mgeneric[m
		size [31m:[m [01;34min[m char_index_type [31m:=[m [35m12[m[31m;[m
      [01;34mpackage[m Code_Random [01;34mis[m
	 [01;34mfunction[m [01;30mRandom[m[31m([mLength [31m:[m [01;34min[m Positive[31m)[m [01;34mreturn[m [32mString[m[31m;[m
	 [01;34mprocedure[m  Reset[31m;[m
	[01;34mprivate[m
	     [01;34msubtype[m Seg_Type [01;34mis[m Natural [01;34mrange[m [35m1[m[31m..[msize[31m;[m
      
      		[01;34mpackage[m Seg_Rand [01;34mis[m [01;34mnew[m Ada[31m.[mNumerics[31m.[m[01;30mDiscrete_Random[m[31m([mSeg_Type[31m);[m
      
      		Seg_Gen [31m:[m Seg_Rand[31m.[mGenerator[31m;[m      

      [01;34mend[m Code_Random[31m;[m
      
[01;34mend[m Gnos[31m.[mLexical[31m;[m

