first commit

2021-12-16 21:01:08 +11:00
commit bba29d0008
20 changed files with 705 additions and 0 deletions
--- a/lib/tree.ml
+++ b/lib/tree.ml
@@ -0,0 +1,5 @@
+open List
+open Types
+
+let combine (tr1 : 'a tree) (tr2 : 'a tree) (topBranch : 'a) : 'a tree =
+    Branch (topBranch, tr1 :: tr2 :: [])