: v-read ( -- file-contents ) "/Volumes/Jingo 1T/AdminDocs/fakeproj/desc" utf8 file-contents ; : -ends ( seq -- seq' ) [ blank? ] trim ; : seg ( seq -- seq' ) [ blank? ] split-when ; : -spc ( seq -- seq' ) "" swap remove ; : wrdlst ( seq -- seq ) -ends seg -spc ; : getfl ( -- seq ) v-read wrdlst ; ! so up to here is just getting the file and dividing it into words. SYNTAX: def1 ( -- ) [ getfl first ! 1 string is on the stack define-symbol ] with-compilation-unit ;