From e89a8b301a0aa57b537ca65fa6019f4d1fa69806 Mon Sep 17 00:00:00 2001
From: Aleksey Veresov <aleksey@veresov.pro>
Date: Sat, 17 Oct 2020 17:42:51 +0300
Subject: .

---
 common/const.sts | 1 +
 main.sts         | 1 +
 2 files changed, 2 insertions(+)

diff --git a/common/const.sts b/common/const.sts
index 46b98e3..b1a08b0 100644
--- a/common/const.sts
+++ b/common/const.sts
@@ -1,3 +1,4 @@
+defconst newline 0a
 defconst space 20
 defconst '!' 21
 defconst '"' 22
diff --git a/main.sts b/main.sts
index c99568c..b4cf8a9 100644
--- a/main.sts
+++ b/main.sts
@@ -15,6 +15,7 @@ set_entry
 
     ; decipher text (length is the same as for ciphertext)
     0 0 do dup length = until
+        2 print_stack newline sys_write
         as pos local cipos
             pos ciphertext + @
             password
-- 
cgit v1.2.3