with Ada.Text_IO; use Ada.Text_IO;
with vector;
procedure Main is

   V : vector.vector2d := vector.get_vect (2.0, 5.0);

   computed_range : vector.range_type;

begin

   Ada.Text_IO.Put_Line ("V.X :" & V.X'Img);
   Ada.Text_IO.Put_Line ("V.Y :" & V.Y'Img);
   computed_range := V.get_range;
   Ada.Text_IO.Put_Line ("computed range  :" & computed_range'Img);

end Main;