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}
