char*c,a[99][12],b[99];m,n,d[99];P(i,j,k){!j*d[i]&&P(i+9,0,k);for(n=0;b[k+n]=n[c=a+i+j];n++);*c?P(i+9,0,k+n),P(i,j+1,k):j||puts(b);}main(p,v){for(gets(c=b);v=*c;p|n||(*a[m]=v),d[m]=*++c-63?0:c++,m+=9)for(n=p=0;v==91&&*++c-93||v==40&&*++c-41;)a[m+n][p]=*c-'|'?v-91?p++:n++,*c:(n++,p=0);P(0,0,0);}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).