1 2 3 4 5 6 7 8 9 10
(sort Foo) (function bar () Foo :no-merge) (constructor baz () Foo) (constructor qux () Foo) (constructor quux () Foo) (set (bar) (baz)) (union (baz) (qux)) (set (bar) (qux)) (fail (set (bar) (quux)))