w[99],t[99][99],c,i,k;main(n,s){for(;read(0,&c,1);k=w[i]=n>9?*t[++i]=c,0:n>0?sprintf(s,"%s%c%s%c(%s)"+k*4,!sprintf(t,n/5*w[i]%5?""-4:s,s=t+i)+t,c,t+i--,k&=k<n+c/45),n:puts(s))n=c-42?:5;}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).