#! /usr/bin/env -S hbs2-cli file ; # println *args ; # (println (grep (sym "-g") *args)) (match *args ( (list? [sym? store] ...) (begin # (local optdef (kw -g 1 --group-key 1)) # (local opts (cli:split optdef ...)) (println "FUCKING STORE " ... )) ) ( (list? [sym? cat] ...) (begin (println "FUCKING CAT" space ...)) ) ( _ (--help) ) )