RosettaCodeData/Task/Conditional-structures/Tcl/conditional-structures-3.tcl

switch -- $foo {
    3 {puts "foo is three"}
    4 {puts "foo is four"}
    default {puts "foo is something else"}
}