Evaluated eval [wget https://dpaste.com/5FS85HBAX.txt]

procs/_index

@@ -31,6 +31,7 @@ random_word_alt 4cd6aa22af199e746253fd437122ed790cbabdd3
 ricky_word a7765cbdd8817e06abf7b341e9a77adb891b4643
 ricky_word_ a698c49cad760393dd92abe54f19e69e0e4f7f5f
 settuB 4e55d43392c0033c6ea4174b1e196f5cb3f21373
+split_on_formatting a07fa5b8c3bdcc395bb9e27240b191b0f767a294
 split_on_formatting_FUCKYOU ff93d9d9f418fcc87a0f804f5d284ab3c4a4b530
 stock3 0278add4d156077f214a8c921e96a6f0dd4fe7cf
 stock_yahoo_v10 3baf09c618e19a34cf07d03aad8a9ca6bdef4564

procs/a07fa5b8c3bdcc395bb9e27240b191b0f767a294

@@ -0,0 +1,11 @@
+string {
+    set result [list]
+    while {[string length $string]} {
+      regexp {^(\003((\d{0,2})(,(\d{0,2}))?)?|\002|\037|\026|\017)?([^\003\002\037\026\017]*)(.*)} \
+        $string {} format {} {} {} {} text remainder
+      if {$format eq ""} {set format \017}
+      lappend result $format $text
+      set string $remainder
+    }
+    return $result
+  }