[doublerabbit]

    variable assumption "wrong"

    switch $assumption {
        wrong { puts "your assumption is wrong" }
        default { puts "perl, erlang, Tcl" }
    }