<pre>
2 8 4 5 4 2 9 1
[TriBulle {2 8 4 5 4 2 9 1}] 
[TriBulle {2 4 8 5 4 2 9 1}] 
[TriBulle {2 4 5 8 4 2 9 1}] 
[TriBulle {2 4 5 4 8 2 9 1}] 
[TriBulle {2 4 4 5 8 2 9 1}] 
[TriBulle {2 4 4 5 2 8 9 1}] 
[TriBulle {2 4 4 2 5 8 9 1}] 
[TriBulle {2 4 2 4 5 8 9 1}] 
[TriBulle {2 2 4 4 5 8 9 1}] 
[TriBulle {2 2 4 4 5 8 1 9}] 
[TriBulle {2 2 4 4 5 1 8 9}] 
[TriBulle {2 2 4 4 1 5 8 9}] 
[TriBulle {2 2 4 1 4 5 8 9}] 
[TriBulle {2 2 1 4 4 5 8 9}] 
[TriBulle {2 1 2 4 4 5 8 9}] 
[TriBulle {1 2 2 4 4 5 8 9}] 
[TriPosePetit {2 8 4 5 4 2 9 1}] 
[TriPosePetit {2 4 5 4 2 8 1 9}] 
[TriPosePetit {2 4 4 2 5 1 8 9}] 
[TriPosePetit {2 4 2 4 1 5 8 9}] 
[TriPosePetit {2 2 4 1 4 5 8 9}] 
[TriPosePetit {2 2 1 4 4 5 8 9}] 
[TriPosePetit {2 1 2 4 4 5 8 9}] 
[TriDico {2 8 4 5 4 2 9 1}] 
[TriDico 1] 
[TriDico {8 4 5 4 9}] 
[TriDico {4 5 4}] 
[TriDico {}] 
[TriDico 5] 
[TriDico 9] 
[TriDiviseEtInterclasse {2 8 4 5 4 2 9 1}] 
[TriDiviseEtInterclasse {2 8 4 5}] 
[TriDiviseEtInterclasse {2 8}] 
[TriDiviseEtInterclasse 2] 
[TriDiviseEtInterclasse 8] 
[TriDiviseEtInterclasse {4 5}] 
[TriDiviseEtInterclasse 4] 
[TriDiviseEtInterclasse 5] 
[TriDiviseEtInterclasse {4 2 9 1}] 
[TriDiviseEtInterclasse {4 2}] 
[TriDiviseEtInterclasse 4] 
[TriDiviseEtInterclasse 2] 
[TriDiviseEtInterclasse {9 1}] 
[TriDiviseEtInterclasse 9] 
[TriDiviseEtInterclasse 1] 
</pre>
<PRE>
<HR>wrong # args: should be "exit code"
    while executing
"exit"<HR>
<P><B>OUTPUT BUFFER:</B></P>
source /usr/local/apache2/PourRivet/SessionBeforeScript.tcl
#!/usr/local/bin/tclsh

puts "<pre>"

set L [list 2 8 4 5 4 2 9 1]

puts $L


source "/home/ripp/gscope/gscope_outils.tcl"
source "/home/ripp/gscope/gscope_atelier.tcl"
source "./ExemplesDeTris.tcl"


set R [TriBulle $L]
set R [TriPosePetit $L]
set R [TriDico $L]
set R [TriDiviseEtInterclasse $L]

Espionne $R

puts "</pre>"


exit

</PRE>