invalid command name "Ccode_InitPosSGGS"
    while executing
"Ccode_InitPosSGGS $M"
    (in namespace eval "::request" script line 12)
    invoked from within
"namespace eval ::request $script"
    ("::try" body line 12)
OUTPUT BUFFER:
#!/usr/local/bin/tclsh


lappend auto_path /home/moumou/ordali/lib
package require tclordalie


lappend L ADF...DEF. ADF......F ADFEEEEEEF
lappend M Seq1 ADF...DEF. Seq2 ADF......F Seq3 ADFEEEEEEF

Ccode_Pairwise $L
lassign [Ccode_InitPosSGGS $M] TGS TSG
puts "\n$TGS"
puts "\n$TSG"

exit