Sane parser rewrite

demos/interactionTrees/forkAwait.tri

@@ -6,9 +6,9 @@
 -- fork spawns a concurrent task and returns a handle.
 -- await blocks until the task completes and returns its value.
 
-worker = (msg :
+worker = msg :
   bind (putStrLn (append "working: " msg)) (_ :
-  pure (append msg "-result")))
+  pure (append msg "-result"))
 
 main = io <|
   (bind (fork (worker "job1")) (h1 :

demos/interactionTrees/greet.tri

@@ -5,6 +5,6 @@
 -- Greet and return a pure value.
 -- putStrLn writes to stdout; pure lifts "done" into IO.
 
-main = io (bind 
-  (putStrLn (append "Hello, " "tricu"))
-  (_ : pure ""))
+main = io <|
+  bind (putStrLn (append "Hello, " "tricu"))
+  (_ : pure "")