august/august.oc
int m[40000 ];
int main() {
int *q,s,f,r,o,l,p,c,b;
char *d;
d=" \t\n;{}\0AP@赁gE챰0q";
b=256;
q=m;
getchar() ;
o= getchar() ;
c= getchar() ;
c=c+ getchar() *b;
p=c;
if (o){while (p){o= getchar() ;
if (o== 59 ){ r=2 ;}else  if (o== '{' ){ r=5 ;}else  if (o== '}' ){ r=8 ;}else  r=0;
if (r){r=r+ getchar() %4;
l=1- getchar() -r;
while (r--){*q=q[l];
q++;
p--;
}}else {if ((o==32)+(o==9)+(o==10)){r= getchar() ;
o=o%4+(r+(r==123))%8*3;
if (8<o)o=o+ getchar() %4*9;
o=d[o]+b;
}*q++=o%b;
p--;
}}while (getchar() !=12);
getchar() ;
}else {while (p--)*q++= getchar() ;
}s= 40000 ;
p=0;
while (1){o= m[p++] ;
if (o==  17  ){ m[s] = !  m[s]  ;}else   if (o==  18  ){ m[s] = -  m[s]  ;}else   if (o==  12  ){ r= m[s++] ;m[s] = m[s]   +  r ;}else   if (o==  13  ){ r= m[s++] ;m[s] = m[s]   -  r ;}else   if (o==  14  ){ r= m[s++] ;m[s] = m[s]   *  r ;}else   if (o==  15  ){ r= m[s++] ;m[s] = m[s]   /  r ;}else   if (o==  16  ){ r= m[s++] ;m[s] = m[s]   %  r ;}else   if (o==  6  ){ r= m[s++] ;m[s] = m[s]   ==  r ;}else   if (o==  7  ){ r= m[s++] ;m[s] = m[s]   !=  r ;}else   if (o==  8  ){ r= m[s++] ;m[s] = m[s]   <  r ;}else   if (o== 1 ){ r= m[s++] ;m[m[s] ]=r;m[s] =r ;}else  if (o== 9 ){ r= m[s++] ;m[m[s] ]=r;s++ ;}else    if (o== 10 ){ r= m[s] ;
s=f;
p= m[s-  1];
f= m[s-  2];
l= m[s-  3];
s=s+l/2;m[s] =r;if (l%2)s++  ;}else  if (o== 22 ){ s++ ;}else  if (o== 27 ){ return m[s]  ;}else  if (o== 21 ){ r= m[s] ;
s--;m[s] = r   ;}else  if (o== 23 ){ m[s] =m[m[s] ] ;}else  if (o== 19 ){ m[s] =m[m[s] ]++ ;}else  if (o== 25 ){ m[s] =m[m[s] ]-- ;}else  {l=o%16;
o=o/16;
if (l==7){l= m[p++] ;
l=l+ m[p++] *b;
}else  if (7<l)l=l+ m[p++] *8-1;
if (o==  2  ){ s--;m[s] =  f+l    ;}else   if (o==  4  ){ s--;m[s] =  f-l-4    ;}else   if (o==  3  ){ s--;m[s] =  m[f+l]    ;}else   if (o==  5  ){ s--;m[s] =  m[f-l-4]    ;}else   if (o==  6  ){ s--;m[s] =  c+l    ;}else   if (o==  7  ){ s--;m[s] =  m[c+l]    ;}else   if (o==  12  ){ s--;m[s] =  l    ;}else   if (o==  8  ){ s--;m[s] =  l    ;}else   if (o== 9 ){ s--;m[s] = p  ;
p=p+l ;}else  if (o== 11 ){ r= m[s-  -l/2];
if (r<3){if (r)r=putchar(m[s] );
else 
r= getchar() ;
s=s+l/2;m[s] =r;if (l%2)s++ ;
}else {m[s-  1]=p;
m[s-  2]=f;
m[s-  3]=l;
f=s;
s=s-19;
p=r;
} ;}else  if (o== 13 ){ p=l ;}else  if (o== 15 ){ if (m[s++] )p=l ;}else  if (o== 14 ){ if (! m[s++] )p=l ;}else  ;
}}}