: @+, dup @, dup (sz swap -dir) &) +n, ;
: -@, $0 over (sz - over -dir) &) +n, @, ;

: popret PSP) dir) -@, $e8294858 , ; immediate