       (System/exit 0))
     ;; TODO: command-line processing
     (println "Opts: " opts)
-    (println "Args: " args)))
+    (let [[system action & args] args]
+      (println "System: " system)
+      (println "Action: " action)
+      (println "Args: " args))))


;; Ideas for tool commands:
;; $ vault --blob-store ~/.config/vault/blob-store.edn
;; $ vault blob list
;; $ vault blob get sha256:123456789 > ./foo.dat
;; $ vault blob put < ./foo.dat > ./blobref.txt
;; $ vault object ...
;; $ vault group ...




  (let [[opts args banner]
        (cli
          args
          "Usage: vault [global opts] <system> <command> [command args]"
          ["--blob-store" "Path to blob-store configuration."
           :default "~/.config/vault/blob-store.edn"]
          ["-v" "--verbose" "Show extra debugging messages."
