with My_Package.Types; use My_Package.Types;
package body My_Package.Child_Package is
   ----------------
   -- Clean_Data --
   ----------------

   procedure Clean_Data
   is
   begin
      --1. on supMy_Package les noms copmkls Ã  Unnnnnnnne_Syyy_Looo et Underlying_List
      --2. On supMy_Package les SJ ayant une vol infErieure Ã  Zpoz_Vlnovyzagf_Ypp8xzmgd
      declare
	 Pipo_Vector                    : Int_Vector := [1 .. 0 => 0];
      begin
         null;
      end ;
   end Clean_Data;
end My_Package.Child_Package;
