;; -*- Mode: Irken -*-
(include "lib/core.scm")
(define thing1
#\newline -> 0
#\space -> 1
#\tab -> 2
_ -> 3
)
(datatype color
(:red)
(:green)
(:blue)
)
(define thing2
(color:red) -> 0
(color:green) -> 1
(color:blue) -> 2
)
(printn (thing1 #\space))
(printn (thing2 (color:blue)))