ll@K,N[2]={K/2,K},B=6**10;modint f[17]={1,231196832,254140508,222476023,151944893,662903954,205293942,652006121,325610358,597159809,843456239,262404764,379810060,592424673,959465618,16199515,43656994},a[2];rep(e,2){a[e]=f[N[e]/B];REP(i,N[e]/B*B+1,N[e]+1)a[e]*=i;}wt(K%2?*a*0:a[1]/a[0]**2);