type
Direction = enum
north, east, south, west
BlinkLights = enum
off, on, slowBlink, mediumBlink, fastBlink
LevelSetting = array[north..west, BlinkLights]
var
level: LevelSetting
level[north] = on
level[south] = slowBlink
level[east] = fastBlink
echo repr(level) # --> [on, fastBlink, slowBlink, off]
echo low(level) # --> north
echo len(level) # --> 4
echo high(level) # --> west
dHlwZQogIERpcmVjdGlvbiA9IGVudW0KICAgIG5vcnRoLCBlYXN0LCBzb3V0aCwgd2VzdAogIEJsaW5rTGlnaHRzID0gZW51bQogICAgb2ZmLCBvbiwgc2xvd0JsaW5rLCBtZWRpdW1CbGluaywgZmFzdEJsaW5rCiAgTGV2ZWxTZXR0aW5nID0gYXJyYXlbbm9ydGguLndlc3QsIEJsaW5rTGlnaHRzXQp2YXIKICBsZXZlbDogTGV2ZWxTZXR0aW5nCmxldmVsW25vcnRoXSA9IG9uCmxldmVsW3NvdXRoXSA9IHNsb3dCbGluawpsZXZlbFtlYXN0XSA9IGZhc3RCbGluawplY2hvIHJlcHIobGV2ZWwpICAjIC0tPiBbb24sIGZhc3RCbGluaywgc2xvd0JsaW5rLCBvZmZdCmVjaG8gbG93KGxldmVsKSAgICMgLS0+IG5vcnRoCmVjaG8gbGVuKGxldmVsKSAgICMgLS0+IDQKZWNobyBoaWdoKGxldmVsKSAgIyAtLT4gd2VzdAo=