! convert with ./i2c -v -d -O --no-perms --icode test/3Darray.imp
begin
  integer base1 = 50, base2 = 60, base3 = 70
  integer index1, index2, index3
  constinteger lim1 = 100, lim2 = 200, lim3 = 300
  integerarray threed(base1:lim1, base2:lim2, base3:lim3)
  integer x

  index1 = 4; index2 = 5; index3 = 6

  x = threed(index1, index2, index3)

endofprogram