read C P G
while read -n1 a
do(($a?--$a,r+=3:++${a,}))
done
$[r+={C<g?C:g,P<c?P:c,G<p?G:p}]
echo $r