;; testing variant with else clause
(include "lib/core.scm")
(let ((w (:doubleu))
(x (:fnord 12))
(y (:blort #f))
(z (:norg))
)
(vcase z
((:fnord a) (+ a 5))
((:blort b) (if b 9 8))
((:doubleu) 99)
(else 12)
))