read
$_ -dx a
for i in $a;{((w+=3^(b[i]^=2)))}
echo $[w/4]