From 1977b7ad1e86d2b922737eb04741607e9c9a991a Mon Sep 17 00:00:00 2001
From: Matthew Hall <hallmatthew314@gmail.com>
Date: Fri, 24 Feb 2023 23:03:33 +1300
Subject: Better printing functions

---
 DSL/StdLib.hs | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'DSL/StdLib.hs')

diff --git a/DSL/StdLib.hs b/DSL/StdLib.hs
index 09c5338..748825e 100644
--- a/DSL/StdLib.hs
+++ b/DSL/StdLib.hs
@@ -21,6 +21,7 @@ sources = [ div'
           , lteq
           , gteq
           , neq
+          , putLn
           ]
 
 div' :: String
@@ -38,3 +39,6 @@ gteq = "PROC >= OVER OVER == ROT > || END"
 neq :: String
 neq = "PROC != == ! END"
 
+putLn :: String
+putLn = "PROC PUTLN PUT \"\n\" PUT END"
+
-- 
cgit v1.2.1