package Full_Test is
   procedure Init;
end Full_Test;