read n
read s
for((--r;n--;)){
b+={A..C}
}
eval for a in $b'
{
[[ $a =~ ^([^A]*|[^B]*|[^C]*)$ ]]||r[!!--s]=$a
}'
echo $r