    :took           s/Num
    :cmd            [s/Str]
    :cmd-source     s/Str
-   :bytes          {:total  s/Num
-                    :stdout s/Num
-                    :stderr s/Num}}
+   :bytes          Ref}
   ([program args scriptfile]
    (exec program args scriptfile (System/getProperty "user.dir")))
   ([program args scriptfile cwd]

      res
      {:cmd cmd
       :cmd-source (slurp scriptfile)
       :bytes @(:bytes res)}))))

(s/defn start-file-listener! :- [ManyToManyChannel]
  ([file]

                                   es-process
                                   stdout-process
                                   stderr-process]))
         out-bytes (@(:bytes result) :stdout)
         err-bytes (@(:bytes result) :stderr)
         total-bytes (@(:bytes result) :total)]
     (store/after-log es-opts)
     (merge
      (dissoc result :bytes)
