Paste: store

USING: kernel vocabs parser namespaces sequences splitting
       io io.files io.encodings.utf8 prettyprint ;

IN: store

: store ( -- )

  "resource:store"
  in get "." split "/" join                     append-path
  in get "." split peek ".factor" append        append-path
  
  dup parent-directory make-directories

  utf8

  [ in get words [ see nl ] each ]

  with-file-writer ;