j.c

#include"j.h"

J WS=0;

J*ma(J n){n=n*8,WS+=n;R(J*)malloc(n);}_ mv(J*d,J*s,J n){N(n,d[i]=s[i]);}
J tr(J r,J*d){J z=1;N(r,z=z*d[i]);R z;}K i(C c,S s){J i=0;C r;W(r=s[i++])P(r==c,(K)i)R 0;}
K ga(J t,J r,J*d){K z=(K)ma(5+tr(r,d));zt=t,zr=r,mv(zd,d,r);R z;}K1(id){R x;}

K1(iota){J n=*xp;K z=ga(0,1,&n);N(n,zp[i]=i)R z;}
K2(plus){J r=yr,*d=yd,n=tr(r,d);K z=ga(0,r,d);N(n,zp[i]=(Ax?*xp:xp[i])+(Ay?*yp:yp[i]))R z;}
K2(mul){ J r=yr,*d=yd,n=tr(r,d);K z=ga(0,r,d);N(n,zp[i]=(Ax?*xp:xp[i])*(Ay?*yp:yp[i]))R z;}
K2(from){J r=yr-1,*d=yd+1,n=tr(r,d);K z=ga(yt,r,d);mv(zp,yp+(n**xp),n);R z;}
K1(box){K z=ga(1,0,0);*zp=(J)x;R z;}
K2(cat){J an=tr(xr,xd),wn=tr(yr,yd),n=an+wn;K z=ga(yt,1,&n);mv(zp,xp,an);mv(zp+an,yp,wn);R z;}
K2(find){R O("nyi\n"),(K)0;}
K2(rsh){J r=xn,n=tr(r,xp),wn=tr(yr,yd);K z=ga(yt,r,xp);mv(zp,yp,wn=n>wn?wn:n);if(n-=wn)mv(zp+wn,zp,n);R z;}
K1(sha){K z=ga(0,1,&xr);mv(zp,xd,xr);R z;}
K1(size){K z=ga(0,0,0);*zp=xn;R z;}
K1(fst){K z=ga(0,0,0);*zp=*xp;R z;}
K1(rev){J r=xr,*d=xd,n=tr(r,d);K z=ga(0,r,d);N(n,zp[i]=xp[n-i-1])R z;}

C vt[]="+{!<#,*|",at[]="\\/";
K(*vd[])(K,K)={0,plus,from,find,0,  rsh,cat,mul,0},
 (*vm[])(K  )={0,id,  size,iota,box,sha,0  ,fst,rev},
 (*va[])(K,K)={0,scan,over};

K2(over){P(Ay,y)K r=ga(0,0,0),z=ga(0,0,0);*rp=*yp;*zp=yp[1];N(yn-1,*zp=yp[i+1];*rp=*(*vd[(J)x])(r,z)->p)R r;}
K2(scan){P(Ay,y)K r=ga(0,yr,yd),z=ga(0,0,0),f=ga(0,0,0);*zp=*rp=*yp;*fp=yp[1];N(yn-1,*fp=yp[i+1];rp[i+1]=*zp=*(*vd[(J)x])(z,f)->p)R r;}

J sI(S a,J*n){C c;J i=0,r=*n=0;
 W((c=*a++)&&(c>='0'&&c<='9'))i++,r=r*10u+((J)c-'0');R*n=i,r;}
_ pi(J i){O("%lld ",i);}_ nl(){O("\n");}_ pt(){O(" ");}
_ pr(K x){J r=xr,*d=xd,n=tr(r,d);
 Z(xt,N(n,O("< ");pr((K)xp[i])))N(n,pi(xp[i]));}
C qp(J a){R a>='a'&&a<='z';}C qv(J a){R a<'a';}
K adv(C c){R i(c,at);}K verb(C c){R i(c,vt);}
K noun(S*a){K z;J l;C c=**a;P(c<'0'||c>'9',(K)0);
 z=ga(0,0,0);*zp=sI(*a,&l);*a+=l-1;R z;}

K ex(K*e){J a=(J)*e,b=(J)e[1];C o;
 Z(qp(a),P(':'==b,st[a-'a']=ex(e+2))a=(J)st[a-'a']);
 P(qv(a)&&adv(b),(*va[(J)adv(b)])((K)a,ex(e+2)))
 R qv(a)?(*vm[a])(ex(e+1)):b?(*vd[b])((K)a,ex(e+2)):(K)a;}

K*wd(S s){K a,*e;C c;J n=strlen(s);
 P(!n,(K*)0);s[--n]=0;e=(K*)ma(n+1);n=0;
 W(c=*s){e[n++]=(a=noun(&s))?a:(a=verb(c))?a:((K)(J)c);s++;}
 R e[n]=0,e;}

int main(){C s[99];W(//O("WS: %llu\n",WS),
 pt(),fgets(s,99,stdin))pr(ex(wd(s))),nl();R 0;}

//:~