can't read "argv": no such variable
    while executing
"Lance $argv"
    (in namespace eval "::request" script line 51)
    invoked from within
"namespace eval ::request $script"
    ("::try" body line 12)
OUTPUT BUFFER:
#!/usr/bin/tclsh

proc ContenuDuFichier {{Fichier ""}} {
    if { $Fichier == "" } {return ""}
    set f [open $Fichier r]
    set Texte [read -nonewline $f]
    close $f
    return $Texte
}


proc LesLignesDuFichier {{Fichier ""}} {
    return [split [ContenuDuFichier $Fichier] "\n"]
}

proc Lance {argv} {

    set f [lindex $argv 0]
    set Ll [LesLignesDuFichier $f]
    set fcom [file join .. .. "commands" "get-model.py"]

    foreach m $Ll {
	cd [file join "mutations" $m]

	if {[file exists "tnap.ini"]} {
	    cd ../..
	    continue
	}
	set Pat [file join .. "PasTouche" $m]
	if {[file exists $Pat]} {
	    cd ../..
	    continue
	}
	
	set f [open $Pat w]
	puts $f "$m en cours"
	close $f

	file copy -force $fcom "get-model.py"

	exec mod8v1 get-model.py

	file delete -force $Pat

	cd ../..
    }

    return
}

Lance $argv

exit