From 904b541f98197556c589550e12d4af82f70b6502 Mon Sep 17 00:00:00 2001
From: Aleteoryx <alyx@aleteoryx.me>
Date: Sun, 7 Dec 2025 00:47:33 -0500
Subject: [PATCH] HES DA CROKR

---
 decroaker.tal | 30 ++++++++++++++++++++++++++++++
 mkfile        |  3 ++-
 rot.tal       |  4 ++--
 3 files changed, 34 insertions(+), 3 deletions(-)
 create mode 100644 decroaker.tal

diff --git a/decroaker.tal b/decroaker.tal
new file mode 100644
index 0000000000000000000000000000000000000000..1d89cc45bfcf63df8e5413f6b592908077d102be
--- /dev/null
+++ b/decroaker.tal
@@ -0,0 +1,30 @@
+( $ echo "I'ANTACS M D. NRKHDNYOOA UAOOT Y FCRT U DMOKKDCEE OLLEASBL! EY." | decroaker.rom
+  IM NOT DEAD YOU CANNOT DESTROY ME BAKA FOOL CHUCKLES DARKLY )
+
+@on-reset ( -> )
+	;on-char #10 DEO2
+	BRK
+
+@on-char ( -> )
+	#12 DEI
+	DUP [ LIT "A ] SUB #26 LTH
+	JMP BRK
+	( >> )
+
+@add-char ( c -- )
+	[ LIT &ptr 00 ]
+	STZk
+	INC DUP ,/ptr STR
+
+	#31 EQU JMP BRK
+	( >> )
+
+@finish ( -- )
+	[ LIT2r 0a18 ]
+	#3000 &loop
+		OVR DIVk MUL SUB
+		LDZk STHrk DEO
+		#07 ADD NEQk ?/loop
+	LDZ STHrk DEO
+	STH2r DEO #800f DEO BRK
+	
diff --git a/mkfile b/mkfile
index c0e0a3388382264dcdbc5e752176635d6f8fe773..11bfa6ea41e0867f9aeb670030a28d69c98bd20d 100644
--- a/mkfile
+++ b/mkfile
@@ -4,7 +4,8 @@ roms=\
 	bfc.rom\
 	lzw.rom\
 	grep.rom\
-	rot.rom
+	rot.rom\
+	decroaker.rom
 
 all:VQ: $roms
 
diff --git a/rot.tal b/rot.tal
index dbf3e75ef25173448d7e8b6e716bfe009501043a..c8bf7c3d15159b0144281ebc86c6ba2a490f141b 100644
--- a/rot.tal
+++ b/rot.tal
@@ -9,7 +9,7 @@
 
 @on-arg ( -> )
 	#17 DEI
-	#02 NEQk ?{ POP2 !/one-digit }
+	#02 EQUk ?/one-digit
 	INC EQUk ?usage
 
 	( argend )
@@ -46,5 +46,5 @@
 	DIVk MUL SUB			( mod )
 	ADD
 	#18 DEO
-	POP2 BRK
+	BRK