here 0 ,
: withdraw ( n -- old-n )
    [ dup literal ] tuck @ swap - tuck swap ! ;
: deposit ( n -- n+old )
    [ dup literal ] tuck @ + tuck swap ! ;
drop