( Trace)

0 VARIABLE vector

: Trace: .S [COMPILE] ' DUP NFA ID. EXECUTE .S ;  ( Works!)

( : ntrace: 0 DO Trace: LOOP ;)

( non-destructive print of fp nos on stack)
: .FS DEPTH 1+ 1 DO I PICK F. LOOP ;
