# 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