couldn't open "df": no such file or directory
    while executing
"open df r"
    (in namespace eval "::request" script line 7)
    invoked from within
"namespace eval ::request $script"
    ("::try" body line 12)
OUTPUT BUFFER:
#!/usr/bin/tclsh

###!/usr/local/ActiveTcl/bin/tclsh

source LesProcsDeGscope.tcl

set o [open df r]
set Llignes [split [read -nonewline $o] \n]
close $o
lappend Llignes "012345"

set Lnum "prems"
set Lin {} ; set Lout {}
foreach l $Llignes {
    if {[regexp {^[0-9]} $l]} {
	set Lor [lor $Lin $Lout]
	if {$Lor != {} } {
	    puts "\n$Lnum"
	    puts "=> in"
	    puts [join [lor $Lin $Lout from1] \n]
	    puts "=> out"
	    puts [join [lor $Lin $Lout from2] \n]
	}
	
	set Lnum $l
	set Lin  {} ; set Lout {}
	continue
    }
    
    if {[string first "--" $l] == 0} {
	continue
    }

    if {[string index $l 0] eq "\#"} {
	continue
    }
    
    if {[string index $l 0] eq "<"} {
	set isIn 1
    }
    if {[string index $l 0] eq ">"} {
	set isIn 0
    }
    set l [string trim [string range $l 1 end]]
    set l [string trimleft $l "\t"]
    if {$l eq ""} {
	continue
    }
    
    if {$isIn} {
	lappend Lin $l
    } else {
	lappend Lout $l
    }
}

exit