perl -E'@C=(split$C,$C.\"cC")[++$^C..$^C<<$^C+($^C)];for(@C,$c,$c,$c){$C[$_]++for$C,2,$#C};$C[$^C<<1]^="\cC";say@C'