proc random_get {} {
  return [expr int(rand()*2)]
}
 
proc is_zundoko { val } {
  set chk [expr ($val % 32)]
  if {$chk == 30} { # 0b11110 
    return 1
  } else {
    return 0
  }
}
 
set array(0) "ドコ"
set array(1) "ズン"
 
set idx 0
 
set chain ""
set val 0
while {$idx < 100} {
  set rnd [random_get]
  append chain $rnd
  set val [expr ($val*2)]
  if { $rnd == 0 } {
    puts $array(0)
    # no increment
  } else {
    puts $array(1)
    incr val 1
  }
  set judge [is_zundoko $val]
  if { $judge == 1 } {
    puts "キヨシ!"
    break;
  }
  incr idx 1
  set val [expr $val % 32]
}
 
#puts $val
#puts [expr $val % 32]

cHJvYyByYW5kb21fZ2V0IHt9IHsKICByZXR1cm4gW2V4cHIgaW50KHJhbmQoKSoyKV0KfQoKcHJvYyBpc196dW5kb2tvIHsgdmFsIH0gewogIHNldCBjaGsgW2V4cHIgKCR2YWwgJSAzMildCiAgaWYgeyRjaGsgPT0gMzB9IHsgIyAwYjExMTEwIAogICAgcmV0dXJuIDEKICB9IGVsc2UgewogICAgcmV0dXJuIDAKICB9Cn0KCnNldCBhcnJheSgwKSAi44OJ44KzIgpzZXQgYXJyYXkoMSkgIuOCuuODsyIKCnNldCBpZHggMAoKc2V0IGNoYWluICIiCnNldCB2YWwgMAp3aGlsZSB7JGlkeCA8IDEwMH0gewogIHNldCBybmQgW3JhbmRvbV9nZXRdCiAgYXBwZW5kIGNoYWluICRybmQKICBzZXQgdmFsIFtleHByICgkdmFsKjIpXQogIGlmIHsgJHJuZCA9PSAwIH0gewogICAgcHV0cyAkYXJyYXkoMCkKICAgICMgbm8gaW5jcmVtZW50CiAgfSBlbHNlIHsKICAgIHB1dHMgJGFycmF5KDEpCiAgICBpbmNyIHZhbCAxCiAgfQogIHNldCBqdWRnZSBbaXNfenVuZG9rbyAkdmFsXQogIGlmIHsgJGp1ZGdlID09IDEgfSB7CiAgICBwdXRzICLjgq3jg6jjgrchIgogICAgYnJlYWs7CiAgfQogIGluY3IgaWR4IDEKICBzZXQgdmFsIFtleHByICR2YWwgJSAzMl0KfQoKI3B1dHMgJHZhbAojcHV0cyBbZXhwciAkdmFsICUgMzJd