couldn't read file "../src/ordali_outils.tcl": no such file or directory
    while executing
"source ../src/ordali_outils.tcl"
    (in namespace eval "::request" script line 3)
    invoked from within
"namespace eval ::request $script"
    ("::try" body line 12)
OUTPUT BUFFER:
#!/usr/local/bin/tclsh

source ../src/ordali_outils.tcl


proc Data {} {
}

proc boot1 {} {
    set lgs 100
    for {set col 0} {$col < $lgs} {incr col} {
	lappend Lori $col
    }
    for {set nbt 0} {$nbt < 10000} {incr nbt} {
	set LH {}
	for {set col 0} {$col < $lgs} {incr col} {
	    lappend LH [expr {int((${lgs}-1)*rand())}]
	}
	set LH [lsort -integer $LH]
	lappend Lor  [lsort -integer [lor $Lori $LH]]
	lappend Land [lsort -integer [land $LH $Lori]]
#	puts "LH [lsort -integer $LH]"
#	puts "land [land [lsort -integer $LH] $Lori]"
#	puts "lor  [lor  $Lori [lsort -integer $LH]]"
	lappend RLH $LH
	lappend Res [llength [lsort -unique $LH]]
    }

    foreach e $Lor f $Land {
	set e [join $e " "]
	set f [join $f " "]
	lappend tLor  $e
	lappend tLand $e
	lappend ttot [list $e $f]
    }    
    foreach r [lsort -index {0} $ttot] {
	lassign $r e f
#	puts "$e"
	puts "[llength [lsort -unique $f]]"
#	puts ""
    }

    puts "tot [llength $tLor]"
    puts "tut [llength [lunique $tLor]]"

    return [list $Res $RLH]
}

namespace import ::tcl::mathop::*

lassign [boot1] Lb LH
puts "[expr {[+ {*}$Lb]/[llength $Lb]*1.0}]"
#puts "lLb [llength $Lb]"
#puts "lu [llength [lsort -unique $Lb]]"
#puts "[lsort -unique $Lb]"

foreach e $LH {
    lappend trie [join [lsort -integer $e] " "]
}
#puts "[lrange [lsort -unique $trie] 0 3]"
#puts "[llength [lsort -unique $trie]]"


exit