read
$_ a
for a in $a
{((++b[a]))
}
for((i=101;--i;)){
for((j=i;--j;)){
for((t=b[i]*b[k=j];--k;s+=t*b[k])){
:
}
}
}
echo $[s%=10**9+7]