Evaluated proc botconvo {{n 6}} { set out {}; map [seq 1 $n] {x { mitsuku [trim $::alice_last]; append out "mitsuku: $::mitsuku_last\n"; alice [trim $::mitsuku_last]; append out "alice: $::alice_last\n" }}; . $out}