n*.KB H ssr { ss y r { (+/,y*2)%X/Ry sigmar { v sigma y r { BJ((2XRv)R'+/'),'(|H|H(IRRy)Ev)\Oy' deltar { v delta y;p;q r { y nxt:}0 if 0=Rv r { (rX(Rr)[1Yv])-(1Yv) sumx r v { 1Uv }nxt ifr { a if b r { b/a rmvc { v rm y vc { (~(IRRy)Ev)/IRRy anovam anova y;a;b;n;s;t;aF;ym;yv;ye;dfs;nh;nv;um start aov1 table startstart n { RRy um { ~'l'E(`1+mI';')Um yv { (y#0)V~';'Em ym { (+/y)%+/yv ye { yvXy-O\(O|Ry)RO\ym nh { (X/`1URy)%+/,%+/yv dfs {`1+(`1URy),(+/,yv)%X/`1URy a{O|nY'abcdef' aF{|OnY'aFbFcFdFeFfF' m{1U(mEa,aF,'+')/m b { (nR2)N`1+I2*n aov1aov1;x;e;et;er s { 0 2 R0 t { 0 10 R' ' e {(n,0)R0 loop: t{t,[1] 10 Y x{n Y (`1+mI'+')Ym s{s,[1] aov2 et {1 1 2 O\(aEx)J.V((aFEx)^.&b)/b e { e,et }loop if 0