xwxlxuxpxsxixb3xcxv2xd2xx2xg3xhxt2xf
.u1<-sPROCEDURE0l.u2:s="EOrep'0l(q2-.); !rep!q2j>.ur vq1j
[1[3.u1(.-z)"E(-1)u2oxit'0u20l!rep!.u3s -c(1a-9)"Ec(q2&(-8))+8u2orep'(1a-13)"E(-1)u2oxit'(q2+.-q3)u2!xit!q1j]3]1
.ur[2[4mlq2u4<(b-.); -lml(q2+1)"g(q4-q2-1); '>]4]2
.ur[2[4mlq2u4<(b-.); -lml(q2+1)"g(q4-q2); '>]4]2
.ur[2[4mlq2u4<(.-z); lml(q2+1)"g(q4-q2); '>]4]2
[2mlq2=]2
[10l.u1msq1,.t]1
[1[2.u10u2-:s
"N.u2'(q2-q1+6)"L(q1-6)u2'q2,q1t;t<>q1,q2+15tq1j]2]1;t

u0[21u2q0"l(-q0)u0(-1)u2'q0<<q2"G(b-.); 'q2"L(.-z); '((1a-9)*(1a-10)*(1a-13)*(1a-32))"E1; 'q2c><q2"L(b-.); 'q2"G(.-z); 'q2c((1a-9)*(1a-10)*(1a-13)*(1a-32))"N1; '>>q2"L<(b-.); -c((1a-9)*(1a-10)*(1a-13)*(1a-32))"Ec1; '>']2
[3[2-1mv1mv.u3s
-2c.u2q3j1mv(.-q2)"L.u2'q2jq3,q2k]2]3
[a;textract <↑Tu0(q0-↑↑b)*(q0-↑↑B)"E;tranch 0l.ua1; '(q0-↑↑p)*(q0-↑↑P)"E;tlex mul.ua-l1; ';t? (B or P): >ms;tinto: ↑tu0iqa,.xq0i.-6,.x0m0;t
]a
[a[e[f;tget: ↑Tuamlq2ue;t L: <↑Tu0 (q0-↑↑ )"Ems1; '(q0-↑↑d)*(q0-↑↑D)"E(qe+2)uel1; ';t? (sp) or D :>.ufzjigqai.-2,.x0.uam0qajml[3[4(q2-qe)"EOxit'(q2-1)u3 <(.-z); ml(q2+1)"EOrep'(q2-q3)"G0l.u4<s -c(1a-9)"N1; 'c>q4,.k(q2-q3-1+qe)<i >!rep!l>!xit!qa,zx0qfjg0]4]3]f]e]a;t

[1[o[n;Told= mtq0uo;T, new= mtq0un;T, go?↑Tu0;T
(q0-↑↑y)*(q0-↑↑Y)"NOxit'<.u1i:sgo@i/"E0u1'/q1,.x0(-1)u1m0q1; 'v;Treplace?↑Tu0;T
(q0-↑↑y)*(q0-↑↑Y)"NOrep'.u1i-rgo@i//gn@i//q1,.x0m0!rep!>!xit!]n]o]1
[1.u1<↑Tu0(q0-27)"E0; 'q0i>q1,.x0]1
<(.-z); .u3l(.-q3-74)"G-l72c-1mv1mvi
'>