ior = io.read
local d = ior("*n", "*l")
local t = {}
for i = 1, 14 do table.insert(t, false) end
for i = 1, 2 do
  local str = ior()
  for j = 1, 7 do
    table.insert(t, str:sub(j, j) == "o")
  end
end
for i = 1, 14 do table.insert(t, false) end

local allmaxlen = 0
for i = 1, 29 - d do
  local maxlen = 0
  local len = 0
  local uq_started = false
  local uq_end = false
  for j = 1, 28 do
    if(t[j]) then
      len = len + 1
      if(uq_started) then uq_end = true end
    elseif(i <= j and j < i + d and (not uq_end)) then
      len = len + 1
      uq_started = true
    else
      maxlen = math.max(maxlen, len)
      len = 0
    end
  end
  maxlen = math.max(maxlen, len)
  allmaxlen = math.max(allmaxlen, maxlen)
end
print(allmaxlen)