BEGIN
RECORDFORMATSPEC F2
RECORDFORMAT F1(INTEGER I,RECORD(F2)NAME R)
RECORDFORMAT F2(INTEGER J,RECORD(F1)NAME R)
RECORD(F2) RR
ENDOFPROGRAM