4 2 1 1 .runstdin bitshift{0}repeat{3 copy 4 eq{4 count 1 roll}if( /\\_
)1 index 1 getinterval print 3 eq{eq{exit}if 0}{xor 1 index xor 3 and}ifelse
count 1 roll}loop/\ =