Wolfram Cloud Document

Show[MWGraphic[Map[StringReplace[#,"C"->""]&,MWEvolveListT[{"CACBC"->"C","C"->"CACBC","CBCAC"->"C","C"->"CBCAC"},{"C"},2],{-1}]]];

Show[MWGraphic[Map[StringReplace[#,"C"->""]&,MWEvolveListT[{"CACBC"->"C","C"->"CACBC","CBCAC"->"C","C"->"CBCAC"},{"C"},3],{-1}]]];

Show[MWGraphic[Map[StringReplace[#,"C"->""]&,MWEvolveListT[{"CACBC"->"C","C"->"CACBC","CBCAC"->"C","C"->"CBCAC"},{"C"},3],{-1}],30]];

Show[MWGraphic[Map[StringReplace[#,"C"->""]&,MWEvolveListT[{"CACBC"->"C","C"->"CACBC","CBCAC"->"C","C"->"CBCAC"},{"C"},5],{-1}],30]];