begin
  integerarray threed(1:2, 2:3, 3:4)
  integerarray oned(1:2)
  threed(1,2,3) = 42
  oned(1) = 42
endofprogram