;; -*- Mode: Irken -*-

(include "lib/core.scm")

;; matching pvariants with an 'else' clause.

(define thing1
  (:Squee x y) -> (+ x y)
  (:Bleek b)   -> (if b 3 4)
  x            -> 99
  )

(:Squee 1 2)
(:Bleek #t)

(thing1 (:Glorm "Bleep?"))