1# Taken from #2627 submitted by @surmish 2proc proc1 {} { 3 if {[regexp {[0-9]$} ""]} { 4 echo "matched" 5 } 6} 7 8proc proc2 {} {} 9 10proc proc3 {} { 11 set abc "hello" 12 puts ${abc} 13} 14 15proc proc4 {} {} 16 17proc3 18