;; -*- Mode: Irken -*-

(define (printn x)
  (%%cexp ('a -> undefined) "dump_object (%0, 0); fprintf (stdout, \"\\n\")" x))

(define (thing a)
  (vcase a
    ((:one x y) x)
    ((:two z)   z)
    ((:urk)     0)
    ))

(printn (thing (:one 12 3)))
(printn (thing (:urk)))
(printn (thing (:two 9)))