Example aimed to show how to survive without enumerations in Oberon.
This way is even cooler than enumerations. (:
