local mod = 1000000007
local mfl = math.floor

local function bmul(x, y)
  local x0, y0 = x % 31623, y % 31623
  local x1, y1 = mfl(x / 31623), mfl(y / 31623)
  return (x1 * y1 * 14122 + (x1 * y0 + x0 * y1) * 31623 + x0 * y0) % mod
end
local function badd(x, y)
  return (x + y) % mod
end

local n, x = io.read("*n", "*n")
local a = {}
for i = 1, n do
  a[i] = io.read("*n")
end
table.sort(a)
local t = {}
for i = 1, n do
  t[i] = {}
  for j = 1, n - i + 1 do
    t[i][j] = {}
  end
end
for i = 1, n do
  t[i][n + 1 - i][x % a[i]] = 1
end
for src = n, 1, -1 do
  for rem = n - src + 1, 2, -1 do
    for val, cnt in pairs(t[src][rem]) do
      local add = bmul(cnt, rem - 1)
      if t[src][rem - 1][val] then
        t[src][rem - 1][val] = badd(t[src][rem - 1][val], add)
      else
        t[src][rem - 1][val] = add
      end
    end
  end
  for rem = 1, n - src + 1 do
    for val, cnt in pairs(t[src][rem]) do
      for dst = src - 1, 1, -1 do
        local nval = val % a[dst]
        local step = src - dst - 1
        if t[dst][rem + step][nval] then
          t[dst][rem + step][nval] = badd(t[dst][rem + step][nval], cnt)
        else
          t[dst][rem + step][nval] = cnt
        end
      end
    end
  end
end
local ret = 0
for k, v in pairs(t[1][1]) do
  ret = badd(ret, bmul(k, v))
end
print(ret)
