CREATE ACC 0 ,
: _LIST ." Block " DUP . NL LIST ;
: _NUM
    ACC @ SWAP _pdacc
    1 = IF _LIST 0 THEN
    ACC !
;
: L BLK> @ _LIST ;
: B BLK> @ 1- BLK@ L ;
: N BLK> @ 1+ BLK@ L ;