$i++%2?$s+=print$",$/,map$"x$s.$_.$/,split//:print$"x$s,grep++$s,split//for<>=~/\S+/g
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page