c[999],m,i;char*b,a[999];main(j,f){for(gets(b=f);m=b[i];c[i]=*a-=m?m>0?:-1:0)m-=b[++i];for(;m?:(m=i,f=f?j:puts(a));)a[--m]=c[m]++==i?j=f=0,b[m]:!f*32;}