: [entry] ( w -- )
    H@ SWAP SCPY  ( h )
    H@ SWAP - ( sz )
    ( write prev value )
    H@ CURRENT @ - ,
    C, ( write size )
    H@ CURRENT !
;

: (entry) WORD [entry] ;