Z by yshl

.runstdin 1 sub dup -1 0{2 copy eq 1 index 0 eq or{1
index{(Z)print}}{{( )print}}ifelse repeat/Z =}for

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page