<>=~$";$\+=2*$s[$_%$']++for split$",<>;print