Posted to tcl by aspect at Thu Feb 02 01:18:05 GMT 2017view pretty

foreach a {2 4 6 8} {
    try {
        foreach b {3 6 9 12} {
            puts "($a, $b)"
            if {$a == $b} {throw break ""}
        }
    } trap break {} {
        break
    }
}