U21(VAR X:INTEGER);VAR Y:INTEGER;BEGIN U20(X);WHILE(G3=37)OR(G3=5)OR(G3=35)OR(G3=
36)DO BEGIN IF G3=37 THEN BEGIN MB(2,X);END ELSE BEGIN MB(1,X);END;CASE G3 OF 5:BEGIN
U5;U20(Y);U11(2);END;35:BEGIN U5;U20(Y);U11(3);END;36:BEGIN U5;U20(Y);U11(4);END;
37:BEGIN U5;U20(Y);U11(15);END;END;MB(X,Y);END;END;PROCEDURE U22(VAR X:INTEGER);VAR
Y:INTEGER;BEGIN IF G3=3 THEN BEGIN U5;U21(X);MB(1,X);END ELSE IF G3=4 THEN BEGIN 
U5;U21(X);MB(1,X);U11(1);END ELSE BEGIN U21(X);END;WHILE(G3=38)OR(G3=3)OR(G3=4)DO
BEGIN IF G3=38 THEN BEGIN MB(2,X);END ELSE BEGIN MB(1,X);END;CASE G3 OF 3:BEGIN U5
;U21(Y);U11(0);END;4:BEGIN U5;U21(Y);U11(1);U11(0);END;38:BEGIN U5;U21(Y);U11(16)
;END;END;MB(X,Y);END;END;PROCEDURE U15(VAR X:INTEGER);VAR O,Y:INTEGER;BEGIN U22(X
);IF(G3=9)OR(G3=10)OR(G3=11)OR(G3=12)OR(G3=13)OR(G3=14)THEN BEGIN IF(X=4)OR(G17[X
].I3<>0)THEN U2(121);O:=G3;U5;U22(Y);MB(X,Y);CASE O OF 9:U11(7);10:U11(8);11:U11(
9);12:U11(10);13:U11(11);14:U11(12);END;X:=2;END;END;PROCEDURE U23;VAR L:ARRAY[1..
64]OF INTEGER;M,N,I,J,T,X,R,QX:INTEGER;BEGIN IF G3=0 THEN BEGIN I:=U9;CASE G16[I]
.I3 OF 1:BEGIN U16(T,I);U7(20);U15(X);MB(T,X);IF I=0 THEN BEGIN U11(14);END ELSE 
BEGIN U14(I);END;IF G17[T].I3=0 THEN BEGIN U11(18);END ELSE BEGIN U10(35,G17[T].T0
);END;END;4:BEGIN IF G16[I].I2=0 THEN BEGIN U19(I);END ELSE BEGIN IF NOT G16[I].I13
THEN U2(122);U5;U7(20);U15(X);MB(G16[I].I2,X);U13(G16[I].I9+1,G16[I].I12);U11(18)
;END;END;0,2,3:U2(123);END;END ELSE IF G3=23 THEN BEGIN U5;U15(T);MB(2,T);U7(24);
I:=U12;U10(40,0);U23;IF G3=25 THEN BEGIN U5;J:=U12;U10(39,0);G18[I+1]:=U12;I:=J;U23
;END;G18[I+1]:=U12;END ELSE IF G3=28 THEN BEGIN U5;U15(T);MB(1,T);U7(43);J:=0;M:=
0;REPEAT IF J<>0 THEN G18[J+1]:=U12;N:=M;REPEAT IF N<>M THEN U5;U11(13);IF G3=0 THEN
BEGIN I:=U9;IF G16[I].I3<>0 THEN U2(124);U10(28,G16[I].I4);END ELSE IF G3=1 THEN 
BEGIN U10(28,G5);END ELSE IF(G3=2)AND(G7=1)THEN BEGIN U10(28,ORD(G6[1]));END ELSE
BEGIN U2(125);END;U11(8);N:=N+1;L[N]:=U12;U10(40,0);U5;UNTIL G3<>17;IF G3<>8 THEN
U2(126);J:=U12;U10(39,0);REPEAT G18[L[N]+1]:=U12;N:=N-1;UNTIL N=M;U5;U23;M:=M+1;L
[M]:=U12;U10(39,0);IF G3=18 THEN U5;UNTIL G3=22;G18[J+1]:=U12;REPEAT G18[L[M]+1]:=
U12;M:=M-1;UNTIL M=0;U10(42,4);U5;END ELSE IF G3=31 THEN BEGIN U5;IF G3=0 THEN BEGIN
QX:=G20;I:=U9;IF G16[I].I3<>1 THEN U2(127);U16(T,I);U7(20);U15(X);MB(T,X);IF I=0 
THEN BEGIN U11(14);END ELSE BEGIN U14(I);END;IF G17[T].I3<>0 THEN U2(128);U11(18)
;R:=1;IF G3=32 THEN BEGIN U7(32);END ELSE IF G3=33 THEN BEGIN U7(33);R:=-1;END ELSE
BEGIN U2(129);END;J:=U12;IF I=0 THEN BEGIN U11(14);END ELSE BEGIN U14(I);END;U11(
17);U15(X);MB(T,X);IF R>0 THEN BEGIN U11(10);END ELSE BEGIN U11(12);END;N:=U12;U10
(40,0);U7(27);U23;IF I=0 THEN BEGIN U11(14);END ELSE BEGIN U14(I);END;U11(17);U10
(37,R);IF I=0 THEN BEGIN U11(14);END ELSE BEGIN U14(I);END;U11(18);U10(39,J);G18[
N+1]:=U12;U10(42,QX-G20);END ELSE BEGIN U7(0);END;END ELSE IF G3=26 THEN BEGIN U5
;I:=U12;U15(T);MB(2,T);U7(27);J:=U12;U10(40,0);U23;U10(39,I);G18[J+1]:=U12;END ELSE
IF G3=29 THEN BEGIN I:=U12;REPEAT U5;U23;UNTIL G3<>18;U7(30);U15(T);MB(2,T);U10(40
,I);END ELSE IF G3=21 THEN BEGIN REPEAT U5;U23;UNTIL G3<>18;U7(22);END ELSE IF G3
=48 THEN BEGIN U11(19);U5;END;END;PROCEDURE U24(L:INTEGER);FORWARD;PROCEDURE U25(
VAR C,T:INTEGER);VAR I,S:INTEGER;BEGIN IF(G3=2)AND(G7=1)THEN BEGIN C:=ORD(G6[1]);
T:=3;END ELSE BEGIN IF G3=3 THEN BEGIN U5;S:=1;END ELSE IF G3=4 THEN BEGIN U5;S:=
-1;END ELSE BEGIN S:=0;END;IF G3=0 THEN BEGIN I:=U9;IF G16[I].I3<>0 THEN U2(130);
C:=G16[I].I4;T:=G16[I].I2;END ELSE IF G3=1 THEN BEGIN C:=G5;T:=1;END ELSE BEGIN U2
(131);END;IF S<>0 THEN BEGIN MB(T,1);C:=C*S;END;END;U5;END;PROCEDURE U26;VAR A:TA
;T,C:INTEGER;BEGIN A:=G4;U5;U7(9);U25(C,T);U7(18);U8(A,0,T);G16[G14].I4:=C;END;PROCEDURE
I2(VAR T:INTEGER);FORWARD;PROCEDURE FQ(VAR T:INTEGER);VAR X:INTEGER;BEGIN G17[T].
I3:=1;U5;U25(G17[T].T1,X);MB(1,X);U7(8);U25(G17[T].T2,X);MB(1,X);IF G17[T].T1>G17
[T].T2 THEN U2(132);IF G3=17 THEN BEGIN FQ(G17[T].T3);END ELSE BEGIN U7(7);U7(43)
;I2(G17[T].T3);END;G17[T].T0:=(G17[T].T2-G17[T].T1+1)*G17[G17[T].T3].T0;END;PROCEDURE
I2(VAR T:INTEGER);VAR I,J,SZ,FT:INTEGER;BEGIN IF G3=44 THEN U5;IF G3=0 THEN BEGIN
I:=U9;IF G16[I].I3<>3 THEN U2(133);T:=G16[I].I2;U5;END ELSE BEGIN IF G15=MTC THEN
U2(134);G15:=G15+1;T:=G15;IF G3=42 THEN BEGIN U5;U6(6);FQ(T);END ELSE BEGIN U7(45
);IF G11=MLC THEN U2(135);G11:=G11+1;G13[G11]:=0;U6(0);SZ:=0;REPEAT U8(G4,2,0);I:=
G14;U5;WHILE G3=17 DO BEGIN U5;U6(0);U8(G4,2,0);U5;END;J:=G14;U7(8);I2(FT);REPEAT
G16[I].I2:=FT;G16[I].I8:=SZ;SZ:=SZ+G17[FT].T0;I:=I+1;UNTIL I>J;IF G3=18 THEN BEGIN
U5;END ELSE BEGIN U6(22);END;UNTIL G3<>0;G17[T].T0:=SZ;G17[T].I3:=2;G17[T].T4:=G13
[G11];G11:=G11-1;U7(22);END;END;END;PROCEDURE UY;VAR A:TA;T:INTEGER;BEGIN A:=G4;U5
;U7(9);I2(T);U7(18);U8(A,3,T);END;PROCEDURE UV;VAR P,Q,T:INTEGER;BEGIN U8(G4,1,0)
;P:=G14;U5;WHILE G3=17 DO BEGIN U5;U6(0);U8(G4,1,0);U5;END;Q:=G14;U7(8);I2(T);U7(
18);REPEAT G16[P].I5:=G11;G20:=G20-G17[T].T0;G16[P].I2:=T;G16[P].I6:=G20;G16[P].I7
:=FALSE;P:=P+1;UNTIL P>Q;END;PROCEDURE NP(VAR P,PS:INTEGER);VAR R:BOOLEAN;T:INTEGER
;BEGIN IF G3=40 THEN BEGIN R:=TRUE;U5;END ELSE BEGIN R:=FALSE;END;U6(0);P:=G14;U8
(G4,1,0);U5;WHILE G3=17 DO BEGIN U5;U6(0);U8(G4,1,0);U5;END;U7(8);U6(0);I2(T);WHILE
P<G14 DO BEGIN P:=P+1;G16[P].I2:=T;G16[P].I7:=R;IF R THEN BEGIN PS:=PS+4;END ELSE
BEGIN PS:=PS+G17[T].T0;END;END;END;PROCEDURE FD(BF:BOOLEAN);VAR F,P,PS,P1,P2,QX:INTEGER
;BEGIN U5;U6(0);G8:=-1;U8(G4,4,0);U5;F:=G14;G16[F].I9:=G11;G16[F].I10:=U12;U10(39
,0);IF G11=MLC THEN U2(136);G11:=G11+1;G13[G11]:=0;PS:=4;QX:=G20;IF G3=15 THEN BEGIN
REPEAT U5;NP(P,PS);UNTIL G3<>18;U7(16);END;IF G11>1 THEN BEGIN G20:=-4;END ELSE BEGIN
G20:=0;END;G16[F].I12:=PS;P:=F;WHILE P<G14 DO BEGIN P:=P+1;IF G16[P].I7 THEN BEGIN
PS:=PS-4;END ELSE BEGIN PS:=PS-G17[G16[P].I2].T0;END;G16[P].I5:=G11;G16[P].I6:=PS
;END;IF BF THEN BEGIN U7(8);U6(0);I2(G16[F].I2);IF G17[G16[F].I2].I3<>0 THEN U2(137
);END;U7(18);G16[F].I11:=G14;IF G3<>47 THEN BEGIN IF G8>=0 THEN BEGIN P1:=G8+1;P2
:=F+1;WHILE P1<=G16[G8].I11 DO BEGIN IF P2>G16[F].I11 THEN U2(138);IF NOT U0(G16[
P1].I0,G16[P2].I0)THEN U2(139);IF G16[P1].I2<>G16[P2].I2 THEN U2(140);IF G16[P1].
I7<>G16[P2].I7 THEN U2(141);P1:=P1+1;P2:=P2+1;END;IF P2<=G16[F].I11 THEN U2(142);
END;G16[F].I13:=TRUE;U24(G16[F].I10);G16[F].I13:=FALSE;U10(43,G16[F].I12-G20);END
ELSE BEGIN IF G8>=0 THEN U2(143);U5;END;G11:=G11-1;G20:=QX;U7(18);END;PROCEDURE U24
(L:INTEGER);VAR I,D,QX,IK:INTEGER;BEGIN QX:=G20;IK:=G14;WHILE(G3=39)OR(G3=41)OR(G3
=40)OR(G3=49)OR(G3=50)DO BEGIN IF G3=39 THEN BEGIN U5;U6(0);WHILE G3=0 DO U26;END
ELSE IF G3=41 THEN BEGIN U5;U6(0);WHILE G3=0 DO UY;END ELSE IF G3=40 THEN BEGIN U5
;U6(0);WHILE G3=0 DO UV;END ELSE IF(G3=49)OR(G3=50)THEN BEGIN FD(G3=49);END;END;IF
L+1=U12 THEN BEGIN G19:=G19-1;END ELSE BEGIN G18[L+1]:=U12;END;IF G11=0 THEN BEGIN
U10(42,G20);END ELSE BEGIN D:=G20-QX;G20:=QX;U10(42,D);END;U23;IF G11<>0 THEN U10
(42,QX-G20);I:=IK+1;WHILE I<=G14 DO BEGIN IF G16[I].I3=4 THEN IF(G18[G16[I].I10]=
39)AND(G18[G16[I].I10+1]=0)THEN U2(144);I:=I+1;END;G14:=IK;END;VAR OCT:ARRAY[1..262144
]OF CHAR;OCP:INTEGER;PROCEDURE OCC(C:CHAR);BEGIN IF OCP<262143 THEN BEGIN OCP:=OCP
+1;OCT[OCP]:=C;END;END;PROCEDURE OC(B:INTEGER);BEGIN OCC(CHR(B));END;PROCEDURE OCW
(I:INTEGER);BEGIN IF I>=0 THEN BEGIN OC(I MOD 256);OC((I DIV 256)MOD 256);END ELSE
BEGIN I:=-(I+1);OC(255-(I MOD 256));OC(255-((I DIV 256)MOD 256));END;END;PROCEDURE
OCI(I:INTEGER);BEGIN IF I>=0 THEN BEGIN OC(I MOD 256);OC((I DIV 256)MOD 256);OC((
I DIV 65536)MOD 256);OC(I DIV 16777216);END ELSE BEGIN I:=-(I+1);OC(255-(I MOD 256
));OC(255-((I DIV 256)MOD 256));OC(255-((I DIV 65536)MOD 256));OC(255-(I DIV 16777216
));END;END;FUNCTION OCGI(O:INTEGER):INTEGER;BEGIN IF ORD(OCT[O+3])<$80THEN BEGIN 
OCGI:=ORD(OCT[O])+(ORD(OCT[O+1])*256)+(ORD(OCT[O+2])*65536)+(ORD(OCT[O+3])*16777216
);END ELSE BEGIN OCGI:=-(((255-ORD(OCT[O]))+((255-ORD(OCT[O+1]))*256)+((255-ORD(OCT
[O+2]))*65536)+((255-ORD(OCT[O+3]))*16777216))+1);END;END;PROCEDURE OCPI(O,I:INTEGER
);BEGIN IF I>=0 THEN BEGIN OCT[O]:=CHR(I MOD 256);OCT[O+1]:=CHR((I DIV 256)MOD 256
);OCT[O+2]:=CHR((I DIV 65536)MOD 256);OCT[O+3]:=CHR(I DIV 16777216);END ELSE BEGIN
I:=-(I+1);OCT[O]:=CHR(255-(I MOD 256));OCT[O+1]:=CHR(255-((I DIV 256)MOD 256));OCT
[O+2]:=CHR(255-((I DIV 65536)MOD 256));OCT[O+3]:=CHR(255-(I DIV 16777216));END;END
;PROCEDURE WOC;VAR I:INTEGER;BEGIN FOR I:=1 TO OCP DO BEGIN WRITE(OCT[I]);END;END
;TYPE TOCS=ARRAY[1..255]OF CHAR;PROCEDURE OCS(S:TOCS);VAR I:INTEGER;BEGIN FOR I:=
1 TO 255 DO OCC(S[I]);END;PROCEDURE OCASC;BEGIN OCP:=0;OCS('MZR肂eRo^fr'#0'PE'#0#0'L'#1#1#0#0#0#0#0#0#0#0#0#0#0#0#0'