gistfile1.txt

needs struct'
with struct'
: clone' ( a-a   ) here 2dup swap size dup push allot pop copy ;

{ 2 fields .name .personal-dict } user
: ;parse ( "-$ ) '; accept tib keepString ;
: name: ( a"- ) ;parse swap .name ! ;
user luke
luke name: Luke Parrish;

chain: my'
: myfoo "The only word I have!" puts bye ;
;chain
d' my'
luke .personal-dict !
last @ @ !last 
luke .personal-dict @ 
without
@d->xt .chain
words
myfoo