;; -*- Mode: Irken -*-
(define (printn x)
(%%cexp ('a -> undefined) "dump_object (%0, 0); fprintf (stdout, \"\\n\")" x))
(define (+ a b)
(%%cexp (int int -> int) "%0+%1" a b))
(define thing
(:test {a=a} b)
-> (+ a b))
(printn (thing (:test {a=3} 5)))