tcl scripts for bioinformatics