can't find package fastme
    while executing
"package require fastme"
    (in namespace eval "::request" script line 5)
    invoked from within
"namespace eval ::request $script"
    ("::try" body line 12)
OUTPUT BUFFER:
#!/home/moumou/tcl8.6b1/lubin/bin/wish8.6
###!/usr/local/ActiveTcl/bin/tclsh

package require struct
package require fastme

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

proc ContenuDuFichier f {
    set o [open $f r]
    return [read -nonewline $o]
}

proc Decortique {f} {
    set TextePH [ContenuDuFichier $f]

    regsub -all "\n" $TextePH "" t
    regsub -all {\)I[0-9]+:} $t "):" t
    regsub -all {\)I[0-9]+;} $t ");" t
    regsub -all {\(} $t {[CreeArbre } t
    regsub -all ","  $t " , " t
    regsub -all ":"  $t " " t
    regsub -all {\)} $t {]} t
    regsub -all {;}  $t "" t

#    puts "$t"
    puts ""
    puts "eval arbre : [time {eval set ArbreOri $t}]"
#    puts "$ArbreOri"
    puts ""
    if {0} {
	foreach {k n p} $ArbreOri {
	    puts "$k $n $p"
	}
    }

    return $ArbreOri
}


########################

proc CreeArbreLuc {args} {
    if {[llength $args] > 5} {
	set rest [lrange $args 5 end]
	set args [lrange $args 0 4]
	set Id [CreeArbre {*}$args]
	set args [list $Id -1. {*}$rest]
	set Id [CreeArbre {*}$args]

	return $Id
    }

    lassign $args a b s c d

    set Idg [CreeId $a $b]
    set Idd [CreeId $c $d]
    set Id [ReunitBranches $Idg $Idd]

    return $Id
}



proc CreeArbre {args} {
    if {[llength $args] > 5} {
	puts " ===> passe args > 5"
	set rest [lrange $args 5 end]
	set args [lrange $args 0 4]
	set Id [CreeArbre {*}$args]
	set args [list $Id -1. {*}$rest]
	set Id [CreeArbre {*}$args]

	return $Id
    }

    lassign $args a b s c d

    set Idg [CreeId $a $b]
    set Idd [CreeId $c $d]
    set Id [ReunitBranches $Idg $Idd]

    return $Id
}


proc CreeId {n l} {
    if {[llength $n] > 1} {
	lset n 2 3 $l
    } else {
	set n [list $n {} [list name $n length $l]]
    }
    
    return $n
}

proc CreeNouveauArbre {t n l} {
    return [list $t {} [list name $n length $l]]
}

proc ReunitBranches {a b} {
    set i [expr {[lindex $::ListeArbres end]+1}]
    lappend ::ListeArbres $i

    set Id Tree-$i
    set na [lindex $a 0]
    set nb [lindex $b 0]
    if {$na < $nb} {
	set ab ${na}-$nb
    } else {
	set ab ${nb}-$na
    }

    set LI [CreeNouveauArbre Tree-$i Noeud-$ab 0.0]
    set LI [CopieArbre $LI $a]
    return [CopieArbre $LI $b]
}


proc CopieArbre {s g} {
    set ls [llength $s]
    lset g 1 0
    lappend s {*}[lrange $g 0 2]
    foreach {k i p} [lrange $g 3 end] {
	incr i $ls
	lappend s $k $i $p
    }

    return $s
}



#set OrdEtcDir /home/moumou/ordali/etc
#set NomSeqSel ""
#source /home/moumou/ordali/src/ordali_source.tcl
#LesDefauts

package require struct
#package require Tk
#package require pixane
#package require combobox
#catch {namespace import ::combobox::*}

set ListeArbres 1
puts "decor [time {set s [Decortique fnat.ph]} 10]"
struct::tree MyTree
MyTree deserialize $s
puts ""
#puts "[MyTree serialize]"
exit

set Abr(1,BootDone) 0
set S [ContenuDuFichier fnat.ph]
set AId [InitialiseUnArbre $S]
AfficheUnArbre $AId