Evaluated proc botconvo {{n 6} args} { set out {}; if { [args] != {} } { set seed [args] } { set seed [trim $::alice_last]  }; map [seq 1 $n] {x { mitsuku $seed; append out "[^C]13mitsuku[^C]: $::mitsuku_last\n"; alice [trim $::mitsuku_last]; append out "[^C]11alice:[^C] $::alice_last\n" }}; . $out}