begin
integer i
recordformat rf(record (rf) name next, integer i)

record (rf) name recn
record (rf) name array name rnan

rnan(i)_next == recn

endofprogram