read  `CalabiWilf.txt`:

q:=3:
C:=3:
MIN1:=50:
MAX1:=60:
B:=[[1,0,2],[1,0,2],[1,0,1]]:
N:=4:
K:=1000:
SimuStory1(q,C,MIN1,MAX1,B,N,K);

quit: