($g,$c,$p)=glob<>;
$$_++for<>=~/./g;
if($g>=$C){$%+=3*$C;$g-=$C;$C=0;}else{$%+=3*$g;$g=0;$C-=$g;}
if($c>=$P){$%+=3*$P;$c-=$P;$P=0;}else{$%+=3*$c;$c=0;$P-=$c;}
if($p>=$G){$%+=3*$G;$p-=$G;$G=0;}else{$%+=3*$p;$p=0;$G-=$p;}
if($g>=$G){$%+=$G;}else{$%+=$g;}
if($c>=$C){$%+=$C;}else{$%+=$c;}
if($p>=$P){$%+=$P;}else{$%+=$p;}
print$%