题目大意：
传送门。
给一个n个点的有向完全图（即任意两点有且仅有一条有向边）。
每一个点上有$S_i$个人，开始时其中有些人有真金块，有些人没有金块。当时刻$i$时，若$u$到$v$有边，若$u$中第$i%S_u$个人有金块（无论真假），且$v$中第$i%S_v$个人没有金块，则会给$v$中第$i%S_v$个人一个假金块。
假设这样传递了无数次。（即不会再满足上面的条件时）
最后，拥有真金块的人一定可以把金子买出去，而拥有假的人有一半的概率买出去，每买出去一个会给自己的点贡献1的价值。
问题是：对于每种所有人卖出金块的结果，卖出最多的前$a$个点中会等概率挑出$b$个点，每个不同的$b$的方案（即存在一个点x在方案一中出现而在方案二中没有出现，称为两个不同的方案）会给答案贡献1,求答案对$1e9+7$的余。
题解：
二柱子找到的神题……（它和dp有什么关系……
显然我们如果能求出最后每个点有多少假金子这就是一道组合裸体。
先不考虑真假。
part1：
考虑$u$对$v$的贡献。若u中第x个人有金子，则v中的y均会拥有金块，显然
。
即所有满足$y \equiv x \mod (s_v,s_u)$的y所有金子。这个推导很简单，把x移到左边然后贝祖定理就完了。
即相当与把x映射到$(s_v,s_u)$的剩余系中。我们将其称为$u$对$v$的贡献，用$F(gcd,x)$来表示$u$的元素$x$在$gcd$剩余系下的结果。
当$v$又向$w$连边时，我们会发现x对w的贡献是每一个y直接贡献的，即 。
类比$x$与$y$的关系我们知道$z\equiv y\mod (s_v,s_w)$。所有有贡献 。
再来思考$x$与$z$的关系。有一个显然的结果是$z\equiv x \mod \gcd (s_u,s_v,s_w)$。
这个也很好证明：
我们知道：设变量$a,b,c,d$满足$c|a,d|b$则会有$(c,d)|a+b$。
我们令$c=(s_u,s_v),d=(s_v,s_w),a=x-y,d=y-z$。自然就可以得到这个关系了。
同时我们再考虑是否所有满足这个关系的$z$一定会得到金块。
即：通过$z$与$x$的关系和$z$与$y$的关系，构造出一个$y$使得能满足$y$与$x$的关系：
这样我们就证明了逆定理的正确性。
这用归纳法我们可以证明：设$u$到$v$的一条路径上，设路径上所有点的最大公约数为$gcd$，$u$上$x$对$v$的贡献为$F(gcd,x)$。
part2：
可是当出现环呢？
我们发现上面的结论时刻成立的，两点间的贡献只和路径$gcd$有关。环内两点的路径可以遍历环内每一个元素，我们会发现最后环里任意两点$gcd$为所有元素最大公约数以后不再变化。那么我们就知道对于环内每个点上的x会对环上所有点产生$F(gcd,x)$的贡献。这样我们用状态$H$来表示在$gcd$的剩余系下都有那些位置被标记过，即$H=\cup_x F(gcd,x)$。
part3：
由于这是一个有向完全图，当我们缩点以后，会发现这还是一个有向完全图，不过这次是有向完全DAG。
我们已经计算出了缩点后每个环点的状态。
考虑在这个有向完全DAG的性质。
1.点的出度是递减的。
2.点的入度是递增的。
3.根据拓扑序遍历我们会得到一条链，且链上点标号递减。
以下为缩点后点数为5的例子（由于linux不太会用且校园网有限制只给出有向边，请读者手画一下……）：
5->4，5->3，5->2，5->1；4->3，4->2，4->1；3->2，3->1；2->1
我们考虑此时环对环的贡献可以转化为$H$间的贡献，其贡献方式与点完全相同。由于缩点以后图的特殊性质，我们如果根据两点之间有边计算贡献无疑会T得飞起。以5对3的贡献为例，一种是5先给4贡献，4在计算此时$H_4$对3的贡献时再把5的贡献传给3,另一种是5对3直接计算贡献。显然我们发现这两种最后的结果都是一样的。那么前者无疑是跟为优秀的，我们按照拓扑后得到的链来传递贡献的话，那么就可以在只枚举一次每个环的计算出所有的贡献。
代码：
#include "bits/stdc++.h"
using namespace std;
inline int read(){
int s=,k=;char ch=getchar();
while (ch<''|ch>'') ch=='-'?k=-:,ch=getchar();
while (ch>&ch<='') s=s*+(ch^),ch=getchar();
return s*k;
}
const int N=5e3+,M=2e6+,mod=1e9+;
typedef long long ll;
struct edges {
int v;edges *last;
}edge[N*N],*head[N<<],*ecnt=edge;
inline void push(int u,int v){
*ecnt=(edges){v,head[u]},head[u]=ecnt++;
}
inline int powmod(int a,int b){
int ret=;
while (b) {
if(b&) ret=(ll)ret*a%mod;
a=(ll)a*a%mod;
b>>=;
}return ret;
}
inline int gcd(int x,int y){
return y?gcd(y,x%y):x;
}
int bcc_cnt,bccno[N],stk[N],dfn[N],low[N],idx,top,bgcd[N],s[N],n,a,b,instk[N];
inline void tarjan(int x) {
low[x]=dfn[x]=++idx;
stk[++top]=x;
instk[x]=true;
for (edges *i=head[x];i;i=i->last)
if(!dfn[i->v])
tarjan(i->v),low[x]=min(low[x],low[i->v]);
else if(instk[i->v]) low[x]=min(low[x],dfn[i->v]);
if(dfn[x]==low[x]) {
bcc_cnt++;int t;
do instk[t=stk[top--]]=false,bccno[t]=bcc_cnt,bgcd[bcc_cnt]=gcd(bgcd[bcc_cnt],s[t]);while (t!=x);
}
}
char me[N],gold[M<<];
int fr[N<<],in[N],now[N],num[N],mx[N],mn[N];
int inv[N],fac[N];
#define C(i,j) ((ll)fac[(i)]*inv[(j)]%mod*inv[(i)-(j)]%mod)
int main(){
//freopen("1.in","r",stdin);
//freopen("war.out","w",stdout);
n=read(),a=read(),b=read();
for (int i=;i<=n;++i) {
scanf("%s",me+);
for (int j=;j<=n;++j) if(me[j]^) push(i,j);
}
for (int i=;i<=n;++i) {
s[i]=read();
fr[i]=fr[i-]+s[i-];
scanf("%s",gold+fr[i]);
}
for (int i=;i<=n;++i) if(!dfn[i])
tarjan(i);
bgcd[]=s[n];
for (int i=;i<=bcc_cnt;++i)
fr[i+n]=fr[i-+n]+bgcd[i-];
fr[n+bcc_cnt+]=fr[n+bcc_cnt]+bgcd[bcc_cnt];
for (int i=;i<fr[n+];++i)
gold[i]^=;
for (int i=;i<=n;++i) {
for (edges *j=head[i];j;j=j->last)
if (bccno[i]!=bccno[j->v])
push(bccno[i]+n,bccno[j->v]+n),++in[bccno[j->v]];
for (int j=fr[i];j<fr[i+];++j)
if (gold[j])
gold[fr[bccno[i]+n]+(j-fr[i])%bgcd[bccno[i]]]=true;
}
now[bcc_cnt]=bgcd[bcc_cnt];
for (int i=bcc_cnt;i>;--i) {
now[i-]=gcd(bgcd[i],bgcd[i-]);
for (int j=;j<bgcd[i];++j) if(gold[fr[i+n]+j])
++num[i],gold[fr[i+n-]+j%now[i-]]=true;
}
for (int j=;j<bgcd[];++j) if(gold[fr[+n]+j])
++num[];
for (int i=;i<=n;++i) {
mx[i]=(ll)num[bccno[i]]*s[i]/bgcd[bccno[i]];
for (int j=fr[i];j<fr[i+];++j)
mn[i]+=gold[j];
}
fac[]=;
for (int i=;i<=n;++i) fac[i]=(ll)fac[i-]*i%mod;inv[]=inv[]=;
for (int i=;i<=n;++i) inv[i]=(ll)inv[mod%i]*(mod-mod/i)%mod;
for (int i=;i<=n;++i) inv[i]=(ll)inv[i]*inv[i-]%mod;
int ans=;
for (int i=;i<=n;++i) {
int c1=,c2=;
for (int j=;j<=n;++j) if (mn[j]>mx[i]) ++c1;
if (c1>=a) continue;
for (int j=;j<=n;++j)
if (mn[j]<=mx[i]&&(mx[j]>mx[i]||mx[j]==mx[i]&&j>i)) ++c2;
for (int j=min(b-,min(c2,a--c1));b-j-<=c1&&(~j);--j)
ans=(ans+C(c2,j)*C(c1,b-j-)%mod)%mod;
}
printf("%d\n",ans);
}