gistfile1.tcl

proc checkbox {args} {
  set choice [expr {int(rand()*[llength $args])}];
  for {set i 0} {$i < [llength $args]} {incr i} {
    if {$i == $choice} {
      lset args $i [format {[x] %s} [lindex $args $i]]
    } else {
      lset args $i [format {[ ] %s} [lindex $args $i]]
    }
  };
  puts [join $args { }];
}