.runstdin/s{{( )print}repeat}def 1 sub(X)0 2 index -1 0{2 copy min s 3 copy sub
abs{print( )}repeat pop(X)print dup 4 index 2 idiv le{dup 4 index 2 idiv add
dup}{1 index 2 mul s(Y)print 3 index dup 3 index 2 mul sub 1 sub}ifelse
s(Y)print 1 index 5 index eq{{(Z)print}repeat}{s dup 0 eq{3
index{(Z)print}repeat}if}ifelse/Z = pop 1 add}for
Note that non-ascii characters in the above source code will be escaped (such as \x9f).