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