SetWorkingDir %A_ScriptDir%

FileRead, answStr, % A_ScriptDir "\d6.txt"

countA := []

count := 0

for i, j in StrSplit(answStr, "`r`n`r`n") {
    countA[i] := {}
    for k, l in StrSplit(j, "`r`n") {
        for m, n in StrSplit(l) {
            if !countA[i][n]
                count += 1
            countA[i][n] := 1
        }
    }
}

Clipboard := count