[(\0\1)(\1\0)].runstdin{[exch{[(\32@P)(0>P)(\20JP)(N P)]{[2 index{counttomark 1
add index exch get 3{dup 3 mod exch 3 idiv}repeat}forall]exch pop exch}forall
pop}forall]}repeat{{(/\\ )exch 1 getinterval print}forall/ =}forall