gistfile1.tcl

proc randpath args {
    set path [expr {int(rand()*[llength $args])}]
    uplevel 1 [lindex $args $path]
}

# Will put "1a" or "1b" 16.7% of times, "2" 33.3% of times, "3" 33.3% of times.
randpath {
    randpath {
        puts 1a
    } {
        puts 1b
    }
} {
    puts 2
} {
    puts 3
}