%begin
%recordformat f(%integer d,%record(f)%name prev,next)
%record(f)%namearray r(1:3)
%integer i=1,j=2,k=3
  r(i)_prev_next == r(j)
  r(k)_prev_next == r(k)
%end
