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