gistfile1.txt

: append ( $$-$ )
  swap
  here push
  here over getLength dup allot copy
  here over getLength dup allot copy
  0 , pop ;

: paren-wrap s" (" swap append s" )" append ;

gistfile2.txt

: :create ( $- ) 
  keepString push
  here 
  last @ , 
  last !
  ['] .data , 
  0 ,
  pop dup getLength here swap dup allot copy 0 , ;
  
: t s" test" :create ;
t words