USING: kernel words vocabs parser classes namespaces sequences splitting io io.files io.encodings.utf8 prettyprint ; IN: store : filtered-words ( -- seq ) in get words [ "predicating" word-prop not ] filter ; : store ( -- ) "resource:store" in get "." split "/" join append-path in get "." split peek ".factor" append append-path dup parent-directory make-directories utf8 [ filtered-words [ see nl ] each ] with-file-writer ;