.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