(do((i(read)))(/)(write-line(subseq(format()"~3@{apple~25@{*~}~}"t)i(+(decf i)31))))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page