%) Я услышан!!!

С рекурсией будет очень уж навёрнуто, а вот так вроде попроще (чтоб флип посмотреть):
^context[test;
^for[i;1;7;
^context[ct^var[i];
^for[j;1;5;
^var[ch^var[i];.;,^var[j]]
]
^lsplit[^var[ch^var[i]];,]
^flip[ct^var[i]]
^item[count]
]
]
]
Вообще-то я форум пытаюсь написать :)))