for(a=[Y=0];l=readline();Y++)for([i,c]in l){for(s=a[y=Y-i]||'';s[-1]/2<Y+i;)s+=' ' a[y]=s+c}for(;y++<52;p&&print(p))p=a[y-i]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page