random 1 c2;
binomial 354 .261.
let c2(2)=354-c2(1)

random 1 c3;
binomial 730 .261.
let c3(2)=730-c3(1)

random 1 c4;
binomial 405 .261.
let c4(2)=405-c4(1)

random 1 c5;
binomial 226 .261.
let c5(2)=226-c5(1)

random 1 c6;
binomial 111 .261.
let c6(2)=111-c6(1)

random 1 c7;
binomial 552 .261.
let c7(2)=552-c7(1)

random 1 c8;
binomial 597 .261.
let c8(2)=597-c8(1)

rsum c2-c8 c9
let k2=c9(1)/(c9(1)+c9(2))

let c10(1)=k2*354
let c10(2)=354-c10(1)
let c11(1)=k2*730
let c11(2)=730-c11(1)
let c12(1)=k2*405
let c12(2)=405-c12(1)
let c13(1)=k2*226
let c13(2)=226-c13(1)
let c14(1)=k2*111
let c14(2)=111-c14(1)
let c15(1)=k2*552
let c15(2)=552-c15(1)
let c16(1)=k2*597
let c16(2)=597-c16(1)

stack c2-c8 c17
stack c10-c16 c18

let c19=(c17-c18)*(c17-c18)/c18
let c20(k1)=sum(c19)
let k1=k1+1