set text(0) "tails"
set text(1) "heads"
for {set i 0} {$i < 10} {incr i} {
  set result [expr {int(rand()*2)}]
  puts "$text($result)"
}