can't read "argv": no such variable
    while executing
"puts "$argv""
    (in namespace eval "::request" script line 96)
    invoked from within
"namespace eval ::request $script"
    ("::try" body line 12)
OUTPUT BUFFER:
#!/home/moumou/bin/mtclsh

proc run {} {
    set o [open cpk.dat r]
    while {[gets $o l]>=0} {
	lappend Ll $l
    }
    close $o
    set Ldata [list]
    foreach l $Ll {
	set Lv [split $l \t]
	lappend Ldata $Lv
    }
    puts "data [llength $Ldata]"
    
    package require tclcluspack
    puts "starting"
    puts [memory info]
    memory trace on

    set Lgr [Tclcluspack $Ldata -dt coordinates -cm kmeans -nbc dpc -wc]
    #set Lgr [Tclcluspack $Ldata -dt coordinates -cm hierar -nbc secator -wc]
    unset Lgr
    update
    puts "\nfirst pass"
    puts "[memory info]"
    
    set Lgr [Tclcluspack $Ldata -dt coordinates -cm hierar -nbc secator -wc]
    unset Lgr
    update

    puts "\nsecond pass"
    puts "[memory info]"
    
    exit
}


proc ana {file} {
    set o [open $file r]
    while {[gets $o l] >= 0} {
	lappend Ll $l
    }
    close $o

    foreach l $Ll {
	regsub -all { +} $l " " l
	set Lv [split $l " "]
	lassign $Lv ckaf add by proc line
	if {$proc eq "unknown"} {continue}

	if {$ckaf eq "ckalloc"} {
	    lappend Lalloc $add
	    set Mema($add) [list $by $proc $line]
	    set Ta($add) 1
	}
	if {$ckaf eq "ckfree"} {
	    lappend Lfree $add
	    set Memf($add) [list $by $proc $line]
	    set Tf($add) 1
	}
    }
    # ckalloc/ckfree
    set Land [list]
    foreach a [lsort -unique $Lalloc] {
	if {[info exists Tf($a)]} {
	    unset Mema($a)
	    unset Memf($a)
	}
    }

    # output
    set Lmema [list]
    foreach {k v} [array get Mema] {
	lappend Lmema [list $k {*}$v]
    }
    set Lmema [lsort -index 2 $Lmema]
    puts "\nAllocs"
    foreach l $Lmema {
	puts $l
    }
    puts ""
    set Lmemf [list]
    foreach {k v} [array get Memf] {
	lappend Lmemf [list $k {*}$v]
    }
    set Lmemf [lsort -index 2 $Lmemf]
    puts "\nFrees"
    foreach l $Lmemf {
	puts $l
    }

    return
}

puts "$argv"
memory onexit lameme
if {[lindex $argv 0] eq "ana"} {
    ana [lindex $argv 1]
} else {
    run 
}