How to loop (elegant) throug a vector ?

[Reinert Korsnes <a@b.no>]

I try to learn to use Ada.Containers. 
Assume the following code:

   package X_t is new Vectors(Positive,Item_t);
   use X_t;
   X : Vector; 

-- I want something more beautiful than this loop:

   for k in 1 .. Positive(X.Length) loop
       do_something(X.Element(k));
   end loop;

Could anybody suggest improvements for the three
last lines in the code?

reinert