# Example code to decompile set x 5 puts 1 if {$x < 15} { puts 1 } puts 2 foreach {a b} [list 1 2 3 4] { puts [expr {$a + $b}] } puts 3 if {[catch {my_buggy_proc} err]} { puts $err } puts 4