From bf91966b98ff595b7a1533a6139773e9231a3a44 Mon Sep 17 00:00:00 2001
From: radical_honesty on #flashsupport <radical_honesty@IRC-Simple>
Date: Fri, 13 Jan 2023 12:53:22 -0800
Subject: [PATCH] Evaluated eval [wget https://dpaste.com/HS975PZ3C.txt]

---
 procs/9dee0e0c9de58ce43e88d97c66a4ded3761de9fd | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/procs/9dee0e0c9de58ce43e88d97c66a4ded3761de9fd b/procs/9dee0e0c9de58ce43e88d97c66a4ded3761de9fd
index 7514434..06ce16b 100644
--- a/procs/9dee0e0c9de58ce43e88d97c66a4ded3761de9fd
+++ b/procs/9dee0e0c9de58ce43e88d97c66a4ded3761de9fd
@@ -8,7 +8,7 @@ s {
                 switch -- $f {
                         0 {
                                 switch -- $c {
-                                         \003 {set f 1;set b "\003"}
+                                         \003 {lappend a $c; set f 1;set b \003}
                                          \002 {lappend e [list $i \002]}
                                          \037 {lappend e [list $i \037]}
                                          \026 {lappend e [list $i \026]}
@@ -18,13 +18,13 @@ s {
                         }
                         1 {
                                 switch -regexp -- $c {
-                                        \d {append b $c;incr f}
+                                        \\d {append b $c;incr f}
                                         default {lappend e [list $i $b];lappend a $c;incr i;set f 0}
                                 }
                         }
                         2 {
                                 switch -regexp -- $c {
-                                        \d {append b $c;incr f}
+                                        \\d {append b $c;incr f}
                                         , {append b $c;set f 4}
                                         default {lappend e [list $i $b];lappend a $c;incr i;set f 0}
                                 }
@@ -37,13 +37,13 @@ s {
                         }
                         4 {
                                 switch -regexp -- $c {
-                                        \d {append b $c;incr f}
+                                        \\d {append b $c;incr f}
                                         default {lappend e [list $i $b];lappend a $c;incr i;set f 0}
                                 }
                         }
                         5 {
                                 switch -regexp -- $c {
-                                        \d {append b $c;lappend e [list $i $b];set f 0}
+                                        \\d {append b $c;lappend e [list $i $b];set f 0}
                                         default {lappend e [list $i $b];lappend a $c;incr i;set f 0}
                                 }
                         }