# -*-mode: tcl; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*-
foreach source $argv {
    set target [file rootname $source].tt

    set src [open $source RDONLY]
    set tgt [open $target {RDWR CREAT TRUNC}]

    while {[eof $src] == 0} {
	set line [string trim [gets $src]]

	if {$line == ""} {
	    continue
	}
	if {[string index $line 0] == "#"} {
	    continue
	}
	puts $tgt $line
    }

    close $src
    close $tgt
}

