(L:=(S:=stdin nextLine)size)to:1by:-1 do:[:i|i to: L do:[:j|(S copyFrom: i to: j)displayNl]]!
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page