print w="$System.in"-'\n' i=n=w.count w.any{c->print"$c\n"+w[--i]+(i?' '*~-n:w[-1..0])}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page