begin
  recordformat fm(integer i, j, k)
  record(fm)array fred(0:9)
  integer x

  x = fred(3)_j
endofprogram