From 163cae08436be83e85ef149948ca2c83656ef33d Mon Sep 17 00:00:00 2001
From: radical_honesty on #flashsupport <radical_honesty@IRC-Simple>
Date: Fri, 13 Jan 2023 11:56:55 -0800
Subject: [PATCH] Evaluated eval [wget https://dpaste.com/BUDDSCQ3Y.txt]

---
 .../9dee0e0c9de58ce43e88d97c66a4ded3761de9fd  | 104 +++++++++---------
 1 file changed, 52 insertions(+), 52 deletions(-)

diff --git a/procs/9dee0e0c9de58ce43e88d97c66a4ded3761de9fd b/procs/9dee0e0c9de58ce43e88d97c66a4ded3761de9fd
index 16ff183..a8ff078 100644
--- a/procs/9dee0e0c9de58ce43e88d97c66a4ded3761de9fd
+++ b/procs/9dee0e0c9de58ce43e88d97c66a4ded3761de9fd
@@ -1,53 +1,53 @@
-s {
-	set f 0;
-	set r [list];
-	set a [list];
-	set e [list];
-	set i 0;
-	foreach c [split $s ""] {
-		switch -- $f {
-			0 {
-				switch -- $c {
-					 {set f 1;set b }
-					 {lappend e [list $i ]}
-					 {lappend e [list $i ]}
-					 {lappend e [list $i ]}
-					 {lappend e [list $i ]}
-					default {lappend a $c;incr i}
-				}
-			}
-			1 {
-				switch -regexp -- $c {
-					\\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}
-					, {append b $c;set f 4}
-					default {lappend e [list $i $b];lappend a $c;incr i;set f 0}
-				}
-			}
-			3 {
-				switch -- $c {
-					, {append b $c;incr f}
-					default {lappend e [list $i $b];lappend a $c;incr i;set f 0}
-				}
-			}
-			4 {
-				switch -regexp -- $c {
-					\\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}
-					default {lappend e [list $i $b];lappend a $c;incr i;set f 0}
-				}
-			}
-		}
-	}
-	return [list $a $e]
+s {
+        set f 0;
+        set r [list];
+        set a [list];
+        set e [list];
+        set i 0;
+        foreach c [split $s ""] {
+                switch -- $f {
+                        0 {
+                                switch -- $c {
+                                         \003 {set f 1;set b }
+                                         \002 {lappend e [list $i ]}
+                                         \037 {lappend e [list $i ]}
+                                         \026 {lappend e [list $i ]}
+                                         \017 {lappend e [list $i ]}
+                                         default {lappend a $c;incr i}
+                                }
+                        }
+                        1 {
+                                switch -regexp -- $c {
+                                        \\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}
+                                        , {append b $c;set f 4}
+                                        default {lappend e [list $i $b];lappend a $c;incr i;set f 0}
+                                }
+                        }
+                        3 {
+                                switch -- $c {
+                                        , {append b $c;incr f}
+                                        default {lappend e [list $i $b];lappend a $c;incr i;set f 0}
+                                }
+                        }
+                        4 {
+                                switch -regexp -- $c {
+                                        \\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}
+                                        default {lappend e [list $i $b];lappend a $c;incr i;set f 0}
+                                }
+                        }
+                }
+        }
+        return [list $a $e]
 }