$/=!<>;$w+=3^($a[$_]^=2)for glob<>;print$w>>2