qp.build(qp)

local function create(tab, key)
   local val = {}
   tab[key] = val
   return val
end

local pat = qp.w * (qp.w + "-" * #qp.w) ^ -62 * "."
pat = qp.w * (qp.w + qp.az"-_." * #qp.w) ^ -62 * "@" * pat ^ 1 * qp.re(qp.a, 2)
    * qp.a ^ -4 / string.lower * 1 * qp.cp(qp.g ^ 1)
pat = qp.ct(((1 - pat) ^ 0 * pat) ^ 1)

local tab = setmetatable({}, {__index = create})
local inp = io.open("accs.txt", "rb")
local out = io.open("uniq.txt", "wb")
local arr = pat:match(inp:read("a"))

for i = 2, #arr, 2 do tab[arr[i - 1]][arr[i]] = true end
for eml, tab in next, tab do
   for psw in next, tab do out:write(eml, ";", psw, "\n") end
end

inp:close()
out:close()