$\=<>=~$";@a=sort{$a-$b}glob<>;($\*=--${0while$i<@a&&$a[$i++]+$a[-1]<=$';i}-$j++)%=1e9+7,$#a--for@a;print