$N=<>;
++$_[$_<=2?$_:3]for glob<>;
for$a(1..3){
	for$b($a..3){
		if($a==$b){
			$%+=$_[$a]*($_[$a]-1)/2*($a==1?2:1)
		}else{
			$%+=$_[$a]*$_[$b]*($a==1?$b==2?3:2:1)
		}
	}
}
print$%,$/