Problem: Brian the Rabbit adores chess. Not long ago he argued with Stewie the Rabbit that a knight is better than a king. To prove his point he tries to show that the knight is very fast but Stewie doesn't accept statements without evidence. He constructed an infinite chessboard for Brian, where he deleted several squares to add some more interest to the game. Brian only needs to count how many different board squares a knight standing on a square with coordinates of (0, 0) can reach in no more than k moves. Naturally, it is forbidden to move to the deleted squares.

Brian doesn't very much like exact sciences himself and is not acquainted with programming, that's why he will hardly be able to get ahead of Stewie who has already started solving the problem. Help Brian to solve the problem faster than Stewie.

Input

The first line contains two integers k and n (0 ≤ k ≤ 1018, 0 ≤ n ≤ 440) which are correspondingly the maximal number of moves a knight can make and the number of deleted cells. Then follow n lines, each giving the coordinates of a deleted square in the form (xi, yi) (|xi| ≤ 10, |yi| ≤ 10). All the numbers are integer, the deleted squares are different and it is guaranteed that the square (0, 0) is not deleted.

Please, do not use %lld specificator to read or write 64-bit integers in C++. It is preffered to use cin (also you may use %I64d).

Output

You must print the answer on a single line. As it can be rather long, you should print it modulo 1000000007.

Examples

Input

1 0


Output

9


Input

2 7
-1 2
1 2
2 1
2 -1
1 -2
-1 -2
-2 -1


Output

9

Solution (in CPP):

Solution:
#include <bits/stdc++.h>
#pragma GCC optimize("Ofast,no-stack-protector,unroll-loops,fast-math")
#pragma GCC target( \
    "sse,sse2,sse3,ssse3,sse4.1,sse4.2,avx,avx2,popcnt,tune=native")
using namespace std;
namespace t {
template <typename T>
inline const T gcd(T __m, T __n) {
  while (__n != 0) {
    T __t = __m % __n;
    __m = __n;
    __n = __t;
  }
  return __m;
}
template <typename T>
inline const T max(const T &a, const T &b) {
  return a > b ? a : b;
}
template <typename T>
inline const T min(const T &a, const T &b) {
  return a < b ? a : b;
}
template <typename T>
inline const T abs(const T &a) {
  return a > 0 ? a : -a;
}
template <typename T>
inline void in(T &x) {
  register T res = 0;
  register int neg = 1;
  char c = getchar();
  for (; !isdigit(c); c = getchar()) {
    if (c == '-') {
      neg = -1;
    }
  }
  for (; isdigit(c); c = getchar()) {
    res = res * 10 + c - '0';
  }
  x = res * neg;
}
inline int read() {
  register int res = 0, neg = 1;
  char c = getchar();
  for (; !isdigit(c); c = getchar()) {
    if (c == '-') {
      neg = -1;
    }
  }
  for (; isdigit(c); c = getchar()) {
    res = res * 10 + c - '0';
  }
  return res * neg;
}
}  // namespace t
const int N = 1500;
const int mod = 1000000007;
struct node {
  long long x, y, p;
};
long long dx[8] = {-1, -1, 1, 1, -2, -2, 2, 2},
          dy[8] = {-2, 2, -2, 2, -1, 1, -1, 1}, k, n, ans = 1, c[400000],
          a[4000][4000];
inline void bfs(long long k) {
  queue<node> q;
  q.push(node{N, N, 0});
  while (!q.empty()) {
    long long x = q.front().x, y = q.front().y, p = q.front().p;
    q.pop();
    if (k == p) break;
    for (int i = 0; i < 8; ++i) {
      long long xx = dx[i] + x, yy = dy[i] + y;
      if (a[xx][yy] == 0) {
        q.push({xx, yy, p + 1});
        a[xx][yy] = 1;
        ++ans;
        ++c[p + 1];
      }
    }
  }
}
int main() {
  t::in(k), t::in(n);
  for (int i = 1; i <= n; ++i) {
    long long x, y;
    t::in(x), t::in(y);
    a[x + N][y + N] = 1;
  }
  c[0] = 1;
  a[N][N] = 1;
  if (k <= 500) {
    bfs(k);
    printf("%lld\n", ans);
  } else {
    bfs(500);
    k = (k - 499) % mod;
    printf("%lld\n", ((ans + (k - 1) * c[500] % mod) % mod +
                      (k - 1) * k / 2 % mod * ((c[500] - c[499]) + mod) % mod) %
                         mod);
  }
  return 0;
}