Task

Create an enumeration of constants with and without explicit values.




proc enumerate {name values} {
    interp alias {} $name: {} lsearch $values
    interp alias {} $name@ {} lindex $values
}