feat(haskell): Interaction Tree IO

oops, now we have purely modelled IO 🤷

lib/base.tri

@@ -72,3 +72,18 @@ succ = y (self :
       (t (t t))
       (_ tail : t t (self tail))
       t))
+
+ok = value rest : pair true (pair value rest)
+err = code rest : pair false (pair code rest)
+
+matchResult = (errCase okCase result :
+  matchPair
+    (tag payload :
+      matchPair
+        (value rest :
+          matchBool
+            (okCase value rest)
+            (errCase value rest)
+            tag)
+        payload)
+    result)