Added kosteus variable to script

Never goofed with tcl before... Maybe it works.