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