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