gmacro
corre
do k1=1:10000
  random 35 c1 c2
  corre c1 c2 m1
  copy m1 c3 c4
  let k2=c3(2)
  let c5(k1)=k2
  let c6(1)=k1
enddo
endmacro