gistfile1.txt

( cd -- char dict )
( cdl -- cd last )
( cdn -- cd new  )
( cdf -- cd find )
( cde -- cd exec )
( cdk -- cd key  )

vocab cd ((
variable cdl
: cdn ( "-   ) 32 accept here @cdl , @tib , !cdl ] ;
: cdf ( c-af ) cdl repeat @ 2dup 1+ @ =if nip 2 + -1 ;then dup 0; drop again ;
: cde ( c-   ) cdf if .word ;then drop ;
: cdk ( "-   ) key cde ;
))

variable c
: advance2 ( $c-$f ) !c repeat @+ dup 0; drop @c =if dup 1- 0 !swap -1 ;then again ;
: process  ( $c-   ) advance2 if @c cde ;then drop ;
: 2process ( $c-   ) push dup pop process ;
cdn . type ;
: bar 10 ;
: baz 20 ;
: foo s" bar.baz" '. process2 ;