%
% arrays with read and write
%


read(write(A,I,X),I)=X.
read(write(A,I,X),J)=read(A,J),I=J.