package Libsens.Data.lead is   
   subtype Lead_Value_type is Value_Type range 48..72;  
   subtype Lead_Sentence_Type is Sentence_type (Lead_Value_Type);   
   
   task Lead_Gen is
      pragma Storage_size(8388608);
      entry Initialize(Filename : in String; Reuse : in Boolean; Converged : in Float; Max_Epochs : in Positive);
      entry Respond(Filename : in String; Channel : in Channel_Type; Seq : in out Seq_Vectors.Vector);
      entry Halt;
   end Lead_Gen;
end Libsens.Data.lead;