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



: &$t 
postpone sub dp p@ p->r &p dp p@ pdup pdup p+c 24 delimit drop p+
pswap p! pdrop align pswap p!  pdrop r->p p! pdrop dp p! 2pdrop postpone
r->p true 
;

' &$ threader


: .$ pdup p@ gap negate 4 - pdrop 1 swap write drop ;


