<>;
++$_[$_]for@A=glob<>;
for$i(1..100){
	for$j($i+1..100){
		$t=$_[$i]*$_[$j];
		for$k($j+1..100){
			($x+=$t*$_[$k])%=1e9+7
		}
	}
}
print$x