(def a-tuple-1 [:number 10])
(def a-tuple-2 [:string "Hello there!"])
(defn show [what]
(match what
[:number n] (printf "It's a number! %d" n)
[:string s] (printf "Here's a string: %s" s)
_ (printf "I dunno what this is: %q" what)))
(show a-tuple-1)
(show a-tuple-2)
(show [:array @[]])