set sh "" for {} {1<2} {} { set ln [gets -] if {[string equal $ln "."]} break set sh "$sh$ln" } puts "