fork download
  1. #define Q strcpy
  2. #define F(x)bcopy(b,f,p-b);f[p-b-x]=!Q(r,p);
  3. #define C(x,y)Q(S[s-x],S[s-y]);
  4. #define N[9999]
  5. #define A Q(S[s++]
  6. #define D sprintf(S[s++],"%d"
  7. #define G(x)}if(*f==x){
  8. #define H(x)G(x)s--;
  9. #define R return
  10. #define Z(x)T(t,u,v)-1||putchar(x);H(
  11. char S N N;s;c;T(b,f,r)char*b,*f,*r;{char*p;strtol(b+=strspn(b," "),&p,0);if(p>b){F(0)R 1;}if(c=*b==40){for(p=++b;c;)c+=(*p==40)-(*p++==41);F(1)R-1;}p++;F(0)*r*=!!*b;R 0;}*P(char*p){if(*p==34)R++p;char*r=P(p+1);D,*p);R r;}E(char*x){char*p,c N,f N,r N,t N,u N,v N;for(Q(c,x);*c;Q(c,p)){Q(t,S[s-1]);if(T(c,f,p=r))A,f);else{{G(64)C(0,1)C(1,2)C(2,3)C(3,0)G(35)A,t);G(36)C(0,2)C(2,1)C(1,0)H(37)H(47)T(t,u,v);*v&&A,v);A,u);H(46)strcat(strcat(S[s-1]," "),t);H(43)D,atoi(t)+1);H(45)D,atoi(t)-1);G(60)D,getchar());H(62)Z(atoi(u))99)Z(*u)119)for(Q(u,t);atoi(S[s-1]);)E(u);G(34)p=P(p);}}}}
  12.  
  13. main(){E("0 10 \"Hi!\" (>)w");}
Success #stdin #stdout 0s 4348KB
stdin
Standard input is empty
stdout
Hi!