begin
  recordformat low(integer a, b, c, d)
  recordformat mid(real p, q, r, record(low) x)
  recordformat top(string(255) f, string(255) g, string(255) h, record (mid) e)

  record (top) rec

  integer n

  rec_e_x_d = 42

endofprogram