shaniqua-smeggdrop/procs/ff93d9d9f418fcc87a0f804f5d284ab3c4a4b530

2 lines
200 B
Plaintext
Raw Normal View History

str {set ret [list]; while {[string length $str]} {regexp {^(((\d{0,2})(,(\d{0,2}))?)?||||)?([^]*)(.*)} $str {} f {} {} {} {} t r; if {$f eq ""} {set f }; lappend ret $f $t; set str $r}; return $ret}