% isIt3
1
0
2
0
2
0
2
4
5
4
1
4
2
0
4
0
I found three
% isIt3
I found three
% isIt3
0
4
4
0
0
I found three

proc isIt3 {} {
        variable 3 [expr {int(rand()*6)}]
                switch $3 {
                        3        { puts "I found three" }
                        default  { puts "$3" ; isIt3 }
                } ;# end switch
} ;# end proc