4b2c1d1e5f1{2a3j8m
<pre>wrong # args: should be "exit code"
    while executing
"exit"
    (in namespace eval "::request" script line 22)
    invoked from within
"namespace eval ::request $script"
    ("::try" body line 12)<hr/><p>OUTPUT BUFFER:</p>#!/usr/local/bin/tclsh



set s "aaaabbcdeeeeefaaajjjjjjjjmmmm"
set s "aaaabbcdeeeeef{{aaajjjjjjjjmmmm"
set ls [split $s ""]
set prv [lindex $ls 0]
set i 0
foreach c $ls {
    if {$c eq $prv} {
	incr i
    } else {
	lappend res $i $c
	set prv $c
	set i 1
    }
}

set res [join $res ""]
puts $res
exit






</pre>