feat(haskell): Interaction Tree IO

oops, now we have purely modelled IO 🤷

lib/binary.tri

@@ -6,21 +6,6 @@ errUnexpectedEof = 1
 errUnexpectedBytes = 2
 errUnexpectedByte = 3
 
-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)
-
 readU8 = (bytes : matchList
   (err errUnexpectedEof t)
   (h r : ok h r)