begin

  routine print array info(string (9) array name x, integer low, high)
    integer i
    for i = low, 1, high cycle
      printstring("ADDR(X("); write(i, -1);  printstring(")) = "); write(ADDR(X(i)), -1); newline
    repeat
  end
  

  string (9) array names(0:5)

  integer i
  for i = 0, 1, 5 cycle
    printstring("ADDR(NAMES("); write(i, -1);  printstring(")) = "); write(ADDR(NAMES(i)), -1); newline
  repeat

  print array info(names, 0, 5)

endofprogram