Evaluated proc botconvo {{n 6} args} { set out {}; if { [args] != {} } { set ::alice_last [args] }; 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}