diff --git a/procs/005a3f83529ce91e2b4dc4717504bac4fd7784b4 b/procs/005a3f83529ce91e2b4dc4717504bac4fd7784b4
new file mode 100644
index 0000000..16ff183
--- /dev/null
+++ b/procs/005a3f83529ce91e2b4dc4717504bac4fd7784b4
@@ -0,0 +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]
+}
diff --git a/procs/_index b/procs/_index
index e5485b9..66bd230 100644
--- a/procs/_index
+++ b/procs/_index
@@ -12,6 +12,7 @@ _n_r_r 61d461e02e7bcef8ea98f079a322145ce65e0754
 alex_fridman_reading bcdfd11e8c234b51147cb33c5b5ece3cf5e21758
 char 71fafc4e2fc1e47e234762a96b80512b6b5534c2
 color 6dd0fe8001145bec4a12d0e22da711c4970d000b
+csplit_fuckyou 005a3f83529ce91e2b4dc4717504bac4fd7784b4
 et a5bc1d9b2ae74e7a8a249659c13b14f5c2eac13f
 fart' f82f87b4bb1f1de348aea420ff40c4697f8cc41f
 gay 2871591e64f027a23fadafaa00305a8bd3484292