OUTPUT BUFFER:
#!/usr/local/bin/tclsh load libtclfastme0.1.so set nbSeq {10 300 100} foreach nb $nbSeq { set Lnom [list] set Ldst [list] unset -nocomplain T for {set i 0} {$i < $nb} {incr i} { set nom1 "seq-$i" lappend Lnom $nom1 set T($nom1,$nom1) 0.0 for {set j [expr {$i+1}]} {$j < $nb} {incr j} { set nom2 "seq-$j" set T($nom1,$nom2) [expr {$rand()}] } } foreach n1 $Lnom { foreach n2 $Lnom { lappend Ldst $T($n1,$n2) } } set rep [fastme $Lnom $Ldst] }