$s="apple"."*"x25; for(0 ..<>){print substr($s,30-$o,$o).substr($s,0,30-$o)."\n";$o++;$o%=30}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page