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