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

package require tclordalie


lappend L ADF...DEF. ADF......F ADFEEEEEEF
lappend M Seq1 ADF.II.K..DEF.W Seq2 ADF.II.K.....FW Seq3 ADFEEEII.KEEEFW

Ccode_Pairwise $L

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

exit