package Bit_Szintu_Muveletek is

   type Kiiro_Eljaras_Eljaras_Mutato_Tipus is access procedure(Item : String);

   generic
      type Tipus is private;
      Kiir : Kiiro_Eljaras_Eljaras_Mutato_Tipus;
      -- Kiir : access procedure(Item : String);                                   -- Ada 2005
   procedure Bitenkent_Kiir(Mit : Tipus; Hossz_Bitekben : Natural := Tipus'Size);  -- figyeljuk meg az alapertelmezett erteket

end Bit_Szintu_Muveletek;