unused . \ show how much dictionary space is available
marker restore
create foo 30 allot
: my-def 30 0 do cr i . ." test" loop ;
unused . \ lower than before
restore
unused . \ same as first unused; restore, foo, and my-def no longer defined