Evaluated proc botconvo {{n 6}} { set out {}; map [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" }}; . $out}