define ordinal Color ( Red,
Orange,
Yellow,
Green,
Blue,
Indigo,
Violet );
display (ordinalname( first(:Color:) )); /* RED */