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