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