proc getchar_unlocked():char {. importc:"getchar_unlocked",header: "" .} proc scan(): int = while true: let k = getchar_unlocked() if k < '0': break result = 10 * result + k.ord - '0'.ord const MOD = 1000000007 var n = scan() var ans = 1 for i in 1..n: ans = ans * i if ans >= MOD : ans = ans mod MOD ans = ans * (2 * i - 1) if ans >= MOD : ans = ans mod MOD echo ans