4.3BSD/usr/contrib/icon/book/05/array.icn

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