package body Blocks is

   procedure Do_Nothing (A : System.Address) is
   begin
      null;
   end Do_Nothing;

end;