procedure array(i,j,x)
   a := list(i,0)
   k := 0
   while a[k +:= 1] := list(j,x)
   return a
end