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