local s = io.read()
local n = #s
local m = io.read("*n", "*l")
local cnt = 0
for i = 1, m do
  local t = io.read()
  local pass = 1
  local tlen = #t
  for df = 1, tlen - 1 do
    local lim = tlen - df
    local isok = true
    for j = 1, lim do
      if t:sub(j, j) ~= t:sub(j + df, j + df) then
        isok = false
        break
      end
    end
    if isok then break else pass = df + 1 end
  end
  -- print(i, pass)

  local p = 1
  while p do
    p = s:find(t, p)
    if p then
      cnt = cnt + 1
      p = p + pass
    end
  end
end
print(cnt)