package contest170407; import java.io.ByteArrayInputStream; import java.io.IOException; import java.io.InputStream; import java.io.PrintWriter; import java.util.Arrays; import java.util.InputMismatchException; public class D { InputStream is; PrintWriter out; String INPUT = ""; void solve() { int mod = 1000000007; long n = nl(); if(n >= mod){ out.println(0); }else{ int B = 1000000; long base = dec(enigma, (int)(n/B*5)); for(long i = n/B*B+1;i <= n;i++){ base = base * i % mod; } out.println(base); } } public static int dec(char[] a, int l){int r=0;for(int j=l+4;j>=l;j--)r=r*93+a[j]-(a[j]+1880)/58;return r;} public static long decl(char[] a, int l){long r=0;for(int j=l+9;j>=l;j--)r=r*93+a[j]-(a[j]+1880)/58;return r;} public static int[] decs(char[] a){int[] ret=new int[a.length/5];for(int i=0;i*5=i*10;j--)r[i]=r[i]*93+a[j]-(a[j]+1880)/58;return r;} private static int ord(char c){return c-(c<='!'?0:c<='['?1:2)-32;} static final char[] enigma = "! rJ$V)cTce(.?8( f$*L$R|}!.NT-6%Vv|5*r9PB$nq`*.0fO,*85Cl!B5:;!v&&M-U#$7#L=L )BJlN%@x7?$QosC)[/*r$6;TU'NP!;$[?%1Br=#Tl`?&[gE)(o=7y$wJgs+Ljeu 9ZM^'O;6[##4a^*'Ss%$4btJ&p*y2+=m+}*!6)q+l#3G+s?#C s_~q&0txk hkH( qrT7+d0l*)km`/!080u,dhrT%>WU{%1]bB)xGhS+Et$m+q~I?.f?Wn(0%(# rvjo%I:aH'9duz(:ir2,*5P`#4Yy$(Y'bg(x^iy!YMs-'u*O.(Jbas&L,m6,.)$#-8G6/$Pb%s,UGci)Y.cp*4=.u& |8#GrTh+FnUF-:oId,^M2O-j2x$*Sm8W(b_A&>!Z>*PeI]&T#^y#~#&p))EMO$.l+8#`8@e+ztE:({N$JbPA,V+o>%E/Q~*Gx*y&jeUm)n C(!ENaZ(v8ft)O?W&,9gRZ#]Z)d(&T8,'=6Nj* !fp#Pqwl'-|n&,aW='*71T&*;56s$CaTt $a3I(YRkY#Fxh(zArv!!%/a%ISS9-Gg?{$N G>.N#Z= 0QX%)GL] +mbi'SjXO*& 3Q!&POu%BV,T(r2|Y$_PQc$6'='!}h*YL,D!]Xp&*x~#S%VEw6#$)_J!)a05,kkwF'}>u[$5?Km!Nk9d$06mu(Yj%q+V6;e%@vft,[Z,6,t -V#[7Ap*0kF6%OVKv#.1oR+$8I:)7pQJ#SyN)&q.D>.O1+!-0bwM%%j4e ;+x0)>yBY&0<8v-5DG.#AX,##IAy7.X#T,)+2A#'x`g>#nVp`)K-*}-(FWb'D%sH+A8TQ AX7c$AOA/']2Jc)u#^0':*zk%Cd2Y)1(5N(x][x)@Vd1*Z3: *WtTl-*WM`#84MR(E.T8,1!&/&=yjg'/q+h-bhfd!GdN0*HEy~$DOYX*Pq>e(|>R9%lD:@+>(L*%|`&f#&u*`(RWPG ?0z!'--Pq%=u5K$Rz{>'@Dk8!<[%q(7w'D+1/5Y+>>bu$vS#}'26'h(Qy~M%oLdv!*4n='v9.N(1'xI%/-p`'])Y4'gdn3#wJ6-%[t&/!/M?h([YvR(zu(i-3oNA)yaJ|,,(As,-YA2,.`:D-XZw/&X^:L#:rAa*&`KE&S(5U*.8DW*vOW*,`O],&CQ%w =XC) a4n&jP@m+_:1]&R]&G!UbJl a)x=%0n*'! ;=U*.5bf&zuu>&Q;L6%'fJ.&!5&V-hPGR-#i;V-%}!`-'C<.,#Ntx(DnK>.?ZK3.*+`+_#{~gD*#L??!ErSK*aI3~*TaM$%X&-^'2M5' Kdnd*PCa+&8+;{$:6ZK#?(NF*EtHD(#L,l*X+8a%NgBA m;5S,P}Bu#e2DP(lgkd%PMrM+e5cl*V9Me'K=f.'KiSf+0>a5 (QuG#:4Iw _c>1.PHQF&+D(#+y.[=!WsS1)~McG FFyq)oaTT,yG6U,:b^7#`U6M(V&9Y*12V5!sEv-)~9Q?'ua,/&:1=$#2zV+*J74[ jN<2%H)=h q*Ow&o%D^+s4JH$pU $#jFGP)sN+/&=wSE(DXyU',cr;-0U>>.wW.C%0`*.#!3?u!tSB6(n5y9*BCFy(;#{N#tEA4*99~T('pS!+Buey'H|-C(UI'>*m[RB+J3vz%*333#;5t6-?jf+'VZT@-R@;3-D5+F+2L 4'3m*R)o&Xk-n1#U'684&'ke#2'ujLd'HS4a+{`y@!5D|A*r@dB,M]|p+'U|' (6%0[$~>/@ 0UEN,)3sx+py.H%yl`a*Z%%q&Z4'D*'}(D)r|[h$dXqn'jQ.}(A~^z$mjk%%u[25'0x0^$+ym3(Y,c^ B6_d-b?OU-paGS(`e?^ z8:b#i6BQ,A]NB%n$iH#'9 y)d$vn$rKRv-n|rW iiPm%0.zP-}N/K&_y1V$,J**'z4k-'#t/`!xl,P$Ne(=- ^[w+-P[L'<3i##Lce6#l`KT'Z+5(-3JRo%wR^w%dXxR%8w:3&pZ/w#02h?$st_/-`jJ>%sJyc#W[b6!R(L_(]=B4 A]:9!ej/z*ZM*[#Iu]L%bac, L5:>!01ak,)~#<+b[G*$kd0s,!i'p!IR@k(hB]J&bS%<-H|[/-lRc2.@%l.%NR^~%NniQ$5R?I$H>Sd,P]iE*#&n{!aZ.,%;p2A#L-5G#GSi_+lrb*)mP(.&Uf;_$Pv(p(Lw+,*t2Yv){&1_-7:Az+{;Ud'k(bO$#Vg$,o,lb!cA-D*1+<4%BcvU%u?LO(=,mu+6 .[ Y(/_ e|kP#W4yl-7qVr f>FM-,r&G%CbBQ%zN@6+qu.[,bI#(.$YOK)*UM$.vFvn&p.f!TW`-+QV%',{u=b#Ajw:-7pI=%u7)?(&.91.Q^YE,+9Ax(2>n4*Wc$I(fVzV(N76;'z{Yp#}xOV!ZsJF&>Vr'#9p]r))%Sk#VMKh#j.VX*&RnR'R0~R&#b|g$k4nr-)Q6.(1Uhr#w$W!&+5?p+9Te?-O}#s$ZZHy#j7xn#n]UC*v@j?&-]vR,x)rB 'oQv#?;l!&z8co+v_$E#Hs,>$60(%*bMqq+~%~R,AUgK,{4[Q!S5{@)mdbc*WO4T(K0;%,X%NF'9y;s&n.M''4O?L)YqC^ +)3e+g3,})Qr*]-I*sfQ]'[tA0#_S]I%OTf6()P{d-aXC8,3T81#T'|G)nWcS#[x-Y$tc3-,l3J#!@k$U%;9V]&.gGY'KVd$+OO37%:2P~),N+| #NiX'w#Zm!8OY@!Kr%eOk'+a.;9&~,g'%Is!9+zjY/#rdC)+Ie>E),c/&*V'ca+K W>,|6Aw+ipH2*0:UQ+qZ!l%X>jC*74R,)P{V;$/Jd#)Z2#. qCpf*pT+/+c,,N @T V'r~$= S$AR!Z2/_)>$)p(PETJ'~OGY*2g54+5:ft bNWg-dF{b%AwO,%_eBY'aq^M)Dv|<#kSyU,mk s%26n>-/^Uv-t9nM$KQ&V!#:_r-Wyk0$2(L<)K*wW#Ukwp#fh3I!B9A&)uF9Y+`n'++1#|/$-s3q%BMY2 4%4'+`@KG+oN[h+xz9,!g |,*o'/v#^|+m,tw C#tF2! S]}F!X3t4&M |- $Y-J*wCg4%iJOW(w/OL*q@s] v*;^-j>B]%9Fhh$^BL2'&J0H oFSM#NDbv-j9*:.Ny/8-s;tj,w'p#-!;3=%qz>q'n,,&%v)IZ!+hTx-MyWW'D89$#ToZ4#c]T)*1X)9-z1:,(m+!w*.r2]'igG1(,c@h!Au*%&qLK#%~z'O,qF&%*0Y;~%e}m?,[pk ,}sTc(u1y| F]6i-$vb?,Q||5$2Fy])= lenbuf){ ptrbuf = 0; try { lenbuf = is.read(inbuf); } catch (IOException e) { throw new InputMismatchException(); } if(lenbuf <= 0)return -1; } return inbuf[ptrbuf++]; } private boolean isSpaceChar(int c) { return !(c >= 33 && c <= 126); } private int skip() { int b; while((b = readByte()) != -1 && isSpaceChar(b)); return b; } private double nd() { return Double.parseDouble(ns()); } private char nc() { return (char)skip(); } private String ns() { int b = skip(); StringBuilder sb = new StringBuilder(); while(!(isSpaceChar(b))){ // when nextLine, (isSpaceChar(b) && b != ' ') sb.appendCodePoint(b); b = readByte(); } return sb.toString(); } private char[] ns(int n) { char[] buf = new char[n]; int b = skip(), p = 0; while(p < n && !(isSpaceChar(b))){ buf[p++] = (char)b; b = readByte(); } return n == p ? buf : Arrays.copyOf(buf, p); } private int[] na(int n) { int[] a = new int[n]; for(int i = 0;i < n;i++)a[i] = ni(); return a; } private long[] nal(int n) { long[] a = new long[n]; for(int i = 0;i < n;i++)a[i] = nl(); return a; } private char[][] nm(int n, int m) { char[][] map = new char[n][]; for(int i = 0;i < n;i++)map[i] = ns(m); return map; } private int[][] nmi(int n, int m) { int[][] map = new int[n][]; for(int i = 0;i < n;i++)map[i] = na(m); return map; } private int ni() { return (int)nl(); } private long nl() { long num = 0; int b; boolean minus = false; while((b = readByte()) != -1 && !((b >= '0' && b <= '9') || b == '-')); if(b == '-'){ minus = true; b = readByte(); } while(true){ if(b >= '0' && b <= '9'){ num = num * 10 + (b - '0'); }else{ return minus ? -num : num; } b = readByte(); } } private static void tr(Object... o) { System.out.println(Arrays.deepToString(o)); } }