-- Date := 2016-11-27 23:02:04 ; 
-- Version := 2016.17.1a ; 
with Ada.Numerics.Discrete_Random;
package Gnos.Lexical is
	-- Lexical is lexical Manger for Word Objects.
	generic
		size : in char_index_type := 12;
      package Code_Random is
	 function Random(Length : in Positive) return String;
	 procedure  Reset;
	private
	     subtype Seg_Type is Natural range 1..size;
      
      		package Seg_Rand is new Ada.Numerics.Discrete_Random(Seg_Type);
      
      		Seg_Gen : Seg_Rand.Generator;      

      end Code_Random;
      
end Gnos.Lexical;