feat: it works!

samples/saccharine.txt

@@ -6,6 +6,7 @@ left p := (p true)
 false p := (p false)
 
 zero 0 1 x := x
+print n := (n 0 1 end)
 
 inc n := \0 1 x.{
   initial := (pair true x)
@@ -15,4 +16,4 @@ inc n := \0 1 x.{
   (n onZero onOne initial)
 }
 
-inc
+(print zero)