begin
  recordformat low(integer a, b, c, d)
  recordformat top(string(255) f, string(255) g, string(255) h, record (low) e)

  record (top) rec

  integer n

  rec_e_b = 42

endofprogram