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
 
type
  LightTower = array[1..10, LevelSetting]
var
  tower: LightTower
tower[1][north] = slowBlink
tower[1][east] = mediumBlink
echo len(tower)     # --> 10
echo len(tower[1])  # --> 4
echo repr(tower)    # --> [[slowBlink, mediumBlink, ...more output..
# 以下の行は型の不一致のエラーによりコンパイルできない
#tower[north][east] = on
#tower[0][1] = on
 

dHlwZQogIERpcmVjdGlvbiA9IGVudW0KICAgIG5vcnRoLCBlYXN0LCBzb3V0aCwgd2VzdAogIEJsaW5rTGlnaHRzID0gZW51bQogICAgb2ZmLCBvbiwgc2xvd0JsaW5rLCBtZWRpdW1CbGluaywgZmFzdEJsaW5rCiAgTGV2ZWxTZXR0aW5nID0gYXJyYXlbbm9ydGguLndlc3QsIEJsaW5rTGlnaHRzXQp2YXIKICBsZXZlbDogTGV2ZWxTZXR0aW5nCmxldmVsW25vcnRoXSA9IG9uCmxldmVsW3NvdXRoXSA9IHNsb3dCbGluawpsZXZlbFtlYXN0XSA9IGZhc3RCbGluawplY2hvIHJlcHIobGV2ZWwpICAjIC0tPiBbb24sIGZhc3RCbGluaywgc2xvd0JsaW5rLCBvZmZdCmVjaG8gbG93KGxldmVsKSAgICMgLS0+IG5vcnRoCmVjaG8gbGVuKGxldmVsKSAgICMgLS0+IDQKZWNobyBoaWdoKGxldmVsKSAgIyAtLT4gd2VzdAoKdHlwZQogIExpZ2h0VG93ZXIgPSBhcnJheVsxLi4xMCwgTGV2ZWxTZXR0aW5nXQp2YXIKICB0b3dlcjogTGlnaHRUb3dlcgp0b3dlclsxXVtub3J0aF0gPSBzbG93QmxpbmsKdG93ZXJbMV1bZWFzdF0gPSBtZWRpdW1CbGluawplY2hvIGxlbih0b3dlcikgICAgICMgLS0+IDEwCmVjaG8gbGVuKHRvd2VyWzFdKSAgIyAtLT4gNAplY2hvIHJlcHIodG93ZXIpICAgICMgLS0+IFtbc2xvd0JsaW5rLCBtZWRpdW1CbGluaywgLi4ubW9yZSBvdXRwdXQuLgojIOS7peS4i+OBruihjOOBr+Wei+OBruS4jeS4gOiHtOOBruOCqOODqeODvOOBq+OCiOOCiuOCs+ODs+ODkeOCpOODq+OBp+OBjeOBquOBhAojdG93ZXJbbm9ydGhdW2Vhc3RdID0gb24KI3Rvd2VyWzBdWzFdID0gb24K