how to print position number of an enumeration variable?

[mike@athome <mike_member@newsguy.com>]

hello,

suppose I have a variable of some enumeration type, and I want to
print or find the position number in the enumeration type that this
variable holds. How can do that?

for example:

-----------
with Ada.Text_Io; use Ada.Text_Io;

procedure Enum is
  type Day_type is (Monday, Tuesday, Wednesday, Thursday, 
                    Friday, Saturday, Sunday);

  Day Day_Type := Monday;

begin

   Put_Line("the position number of first enumeration elemenet is " & 
             Day_type'Image( ???? ) );

end Enum;

---------------

I know that the first enumeration literal will have a position of 0. But
I just wanted to see if one can print this value. I looked at the attributes
of scalar data types, and do not see something like S'pos ?

thanks,
mike