
: threader
        s->r bcellsd
                @
                100 XOR
                !
        r->s
;




: tickthreader '   ; ' tickthreader threader



