je ne comprends pas ce que ça vient faire dans le code
TCL
while { [gets $a line] >= 0} {
if {$line == "100: $authed"} {
C'est en reconnaissant ses erreurs que l'on progresse