begin

  recordformat F1(integer I, J, K, L)
  recordformat F2(integer P, record (F1) array A(0:8))
  record (F2) R
  integer I

  I=ADDR(R_A(0))

endofprogram