1{2}# tcl tests 2{0} 3{2}#simple example 4{0} 5{12}proc{0} {7}Echo_Server{0} {6}{{7}port{6}}{0} {6}{ 6{0} {12}set{0} {7}s{0} {6}[{12}socket{0} {10}-server{0} {7}EchoAccept{0} {8}$port{6}] 7{0} {12}vwait{0} {7}forever{0}; 8{6}} 9{0} 10{2}# Bug #1947 11{0} 12{8}$s{6}({8}$i{6},{5}"n"{6}) 13{12}set{0} {7}n{0} {8}$showArray{6}({8}$i{6},{5}"neighbor"{6}) 14