( DEPTH                                  return depth of stack )

: depth                           ( --- n )
  sp@                             ( addr of top of stack)
  s0 @ 2 -                        ( addr of bottom of stack)
  - 2 /                           ( number of items on stack)
;