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


proc reform liste {

    set f [open [lindex $liste 0] r]
    set lignes [read -nonewline $f]
    close $f

    regsub -all " " $lignes "" lignes
    set Llignes [split $lignes "<"]
    
    
    set n 1
    foreach l $Llignes {
	if {$l == ""} {continue}
	if {[string range $l 0 8] == "seq-data>"} {
	    set h ">seq-$n"
	    puts $h
	    incr n
	    set l [string range $l 9 end]
	    set D 0
	    while {$D < [string length $l]} {
		set F [expr $D + 59]
		set Linit [string range $l $D $F]
		regsub -all "Z" $Linit "." h
		puts $h
		incr D 60
	    }
	}
    }
    
    return
}

reform $argv

exit