VARIABLE ACC
: _LIST ." Block " DUP . CRLF LIST ;
: _NUM
    ACC @ SWAP _pdacc
    IF _LIST 0 THEN
    ACC !
;
: B BLK> @ 1- DUP BLK> ! _LIST ;
: N BLK> @ 1+ DUP BLK> ! _LIST ;