Transpose by Zauberer

a,l,i;main(n,s){for(n=s;gets(n);n+=a=strlen(n))l++;for(n=s;n<a+s;n+=write(1,"\n"))for(i=0;i<l;)write(1,n+i++*a,1);}

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page