local starts = {}; --store where each character is
local grid = {}; --stores the grid of characters

--HANDLING INPUT
local n = io.read("*number");
local m = io.read("*number"); io.read("*line");

for i = 1, n do
	local line = io.read("*line");
	grid[i] = {};
	for j = 1, line:len(), 2 do
		local char = line:sub(j, j);
		grid[i][j] = {char = char, x = i, y = (j+1)/2};

		if not starts[char] then
			starts[char] = {};
		end
		table.insert(starts[char], {x = i, y = (j+1)/2});
	end
end

local scan = function(word)
	local allowed;

	for i = 1, word:len() do
		local letter = word:sub(i, i);
		local validPos = starts[letter];
		--letter is not in grid, return false
		if not validPos then return false end

		local newAllowed = {};
		local found = false;
		for j = 1, #validPos do
			local pos = validPos[j];
			local reachable = not allowed or allowed[pos.x..":"..pos.y];
			if reachable then
				found = true;
				newAllowed[(pos.x-1)..":"..(pos.y)] = true;
				newAllowed[(pos.x+1)..":"..(pos.y)] = true;
				newAllowed[(pos.x)..":"..(pos.y-1)] = true;
				newAllowed[(pos.x)..":"..(pos.y+1)] = true;
			end
		end
		allowed = newAllowed;
		if not found then return false end
	end

	return true;
end

for i = 1, m do
	local line = io.read("*line");
	if scan(line) then
		print(line);
	end
end