$n=<>;
for(glob<>){
	$a+=$_==1;
	$b+=$_==2;
}
print $a*$b*2+$a*($n-$b-$a)+$a*($a-1)/2+$n*($n-1)/2;