no such variable
    (read trace on "env(ORDALIDIR)")
    invoked from within
"set OrdaliDir $env(ORDALIDIR)"
    (file "/home/moumou/ordali/src/ordali_source.tcl" line 4)
    invoked from within
"source /home/moumou/ordali/src/ordali_source.tcl"
    (in namespace eval "::request" script line 3)
    invoked from within
"namespace eval ::request $script"
    ("::try" body line 12)
OUTPUT BUFFER:

source /home/moumou/ordali/src/ordali_source.tcl
load libtclcluspack.so

set f [open tdpc.dat r]
set Ll [split [read -nonewline $f] \n]
close $f
set Data [list]
puts "entree [expr {[llength $Ll] - 2}]"
foreach l [lrange $Ll 2 end] {
    set l [string map [list \t " "] $l]
    lassign [split $l " "] a b
    lappend Data [list $a $b]
}
puts "length [llength $Data]"
puts "3 1er elt [lrange $Data 0 2]"

set Res [Tclcluspack $Data -dt coordinates -cm kmeans -nbc dpc -wc]

foreach c $Res {
puts "$c"
puts ""
}