: ?dup dup 0; ;

: sp@ dup [ $f089 2, ]  ;    | mov eax,esi

loc:
  reset sp@ constant base
 :: base sp@ - 4 / 1- ;
;loc alias depth

: t depth ?dup if . then ;
t
t
t