#define Q strcpy
#define F(x)bcopy(b,f,p-b);f[p-b x]=!Q(r,p);
#define C(x,y)Q(S[s-x],S[s-y]);
#define N[99]
#define A Q(S[s++]
#define D sprintf(S[s++],"%d"
#define G(x);}if(*f==x){
#define H(x)G(x)s--;
#define R return
#define Z(x)T(t,u,v)-1||putchar(x)H(
z=1,*y;char S N N;s;c;T(b,f,r,p)char*b,*f,*r,*p;{strtol(b+=strspn(b," "),&p,0);if(p>b){F()R 1;}if(c=*b==40){for(p=++b;c;p++)if(z^=*p==34)c+=*p-41?*p==40:-1;F(-1)R-1;}p++;F()*r*=!!*b;R 0;}*P(char*p){R*p-34?y=P(p+1),D,*p),y:++p;}E(int*x){char*p,c N,f N,r N,t N,u N,v N;for(Q(c,x);*c;Q(c,p))if(Q(t,S[s-1]),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);}}}
 
main(){
  printf("\"Hi!\" : ");
  E("0 10 \"Hi!\" (>)w");
  printf("10x21 : ");
  E("10 21 0@($@#@($+$-)w%@$-)w%%");
  printf("%s\n",S[--s]);
  printf("Quine : ");
  E("(\")10$#34$(34 40 (>)w)....1$w\")10$#34$(34 40 (>)w)....1$w");
}

I2RlZmluZSBRIHN0cmNweQojZGVmaW5lIEYoeCliY29weShiLGYscC1iKTtmW3AtYiB4XT0hUShyLHApOwojZGVmaW5lIEMoeCx5KVEoU1tzLXhdLFNbcy15XSk7CiNkZWZpbmUgTls5OV0KI2RlZmluZSBBIFEoU1tzKytdCiNkZWZpbmUgRCBzcHJpbnRmKFNbcysrXSwiJWQiCiNkZWZpbmUgRyh4KTt9aWYoKmY9PXgpewojZGVmaW5lIEgoeClHKHgpcy0tOwojZGVmaW5lIFIgcmV0dXJuCiNkZWZpbmUgWih4KVQodCx1LHYpLTF8fHB1dGNoYXIoeClIKAp6PTEsKnk7Y2hhciBTIE4gTjtzO2M7VChiLGYscixwKWNoYXIqYiwqZiwqciwqcDt7c3RydG9sKGIrPXN0cnNwbihiLCIgIiksJnAsMCk7aWYocD5iKXtGKClSIDE7fWlmKGM9KmI9PTQwKXtmb3IocD0rK2I7YztwKyspaWYoel49KnA9PTM0KWMrPSpwLTQxPypwPT00MDotMTtGKC0xKVItMTt9cCsrO0YoKSpyKj0hISpiO1IgMDt9KlAoY2hhcipwKXtSKnAtMzQ/eT1QKHArMSksRCwqcCkseTorK3A7fUUoaW50Kngpe2NoYXIqcCxjIE4sZiBOLHIgTix0IE4sdSBOLHYgTjtmb3IoUShjLHgpOypjO1EoYyxwKSlpZihRKHQsU1tzLTFdKSxUKGMsZixwPXIpKUEsZik7ZWxzZXt7Ryg2NClDKDAsMSlDKDEsMilDKDIsMylDKDMsMClHKDM1KUEsdClHKDM2KUMoMCwyKUMoMiwxKUMoMSwwKUgoMzcpSCg0NylUKHQsdSx2KTsqdiYmQSx2KTtBLHUpSCg0NilzdHJjYXQoc3RyY2F0KFNbcy0xXSwiICIpLHQpSCg0MylELGF0b2kodCkrMSlIKDQ1KUQsYXRvaSh0KS0xKUcoNjApRCxnZXRjaGFyKCkpSCg2MilaKGF0b2kodSkpOTkpWigqdSkxMTkpZm9yKFEodSx0KTthdG9pKFNbcy0xXSk7KUUodSlHKDM0KXA9UChwKTt9fX0KCm1haW4oKXsKICBwcmludGYoIlwiSGkhXCIgOiAiKTsKICBFKCIwIDEwIFwiSGkhXCIgKD4pdyIpOwogIHByaW50ZigiMTB4MjEgOiAiKTsKICBFKCIxMCAyMSAwQCgkQCNAKCQrJC0pdyVAJC0pdyUlIik7CiAgcHJpbnRmKCIlc1xuIixTWy0tc10pOwogIHByaW50ZigiUXVpbmUgOiAiKTsKICBFKCIoXCIpMTAkIzM0JCgzNCA0MCAoPil3KS4uLi4xJHdcIikxMCQjMzQkKDM0IDQwICg+KXcpLi4uLjEkdyIpOwp9