From e21fe4c4807d8713a1401d90a14715f6d2fd2403 Mon Sep 17 00:00:00 2001
From: Marvin Borner
Date: Fri, 15 Sep 2023 19:43:30 +0200
Subject: More work on transpiler

---
 app/Main.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'app/Main.hs')

diff --git a/app/Main.hs b/app/Main.hs
index 004d079..9c62589 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -14,7 +14,9 @@ transpile = do
   let term = fromBLC file
   putStrLn $ "input: " ++ show term
   let ski = transpileSKI term
-  putStrLn $ "transpiled: " ++ show ski
+  putStrLn $ "SKI transpiled: " ++ show ski
+  let birb = transpileBirb ski
+  putStrLn $ "Birb transpiled: " ++ show birb
   return ()
 
 reduce :: IO ()
-- 
cgit v1.2.3