Evaluated proc botconvo {{n 6}} { set out {}; m [seq 1 $n] {x { set m [mitsuku [trim $::alice_last]]; lappend out "mitsuku: $m\n"; set a [alice [trim $m]]; lappend out "alice: $a\n" }} \n}