procedure Main is
   Cant_Be_Pulled_Up : Natural;

begin
   declare
      --  Some comments

      type My_Natural_Range;

      --  Some comments
      --  A very natural range
      type My_Natural_Range is range 0 .. 10;
      --  A very natural Natural
      
     
 

   begin
      null;
   end;
end Main;
