SetWorkingDir %A_ScriptDir%

FileRead, adStr, % A_ScriptDir "\d10.txt"

adA := StrSplit(adStr, "`r`n")
adAR := {}
for i, j in adA {
    adAR[j] := i
}
jo := 0, jo1 := 0, jo3 := 1, joP := 0
for i, j in adAR {
    if (i - joP = 1)
        jo1 += 1
    else if (i - joP = 3)
        jo3 += 1
    jo += i
    joP := i
}
Clipboard := jo1 * jo3