Monty Hall problem simulation (Tcl source code)