Evaluated proc schizo {{n 4}} { set m1 [rmitsuku]; set m2 [rmitsuku]; set ::mitsuku_$m2 {hi}; set out {}; map [seq 1 $n] {x { mitsuku [trim $::mitsuku_$m2] $m1; append out "[^C]13mitsuku[^C]: $::mitsuku_$m1\n"; mitsuku [trim $::mitsuku_$m1] $m2; append out "[^C]11mitsuku:[^C] $::mitsuku_$m2\n" }}; . $out}