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}
                                 }
                         }