List := StrSplit(FileOpen("day13_input.txt","R").Read(),"`r`n")

ListPart2 := StrSplit(List[2],",")
start := 0
a := ListPart2.RemoveAt(1)
x := 0

for k, v in ListPart2 {
    Loop {
        if( v=="x") {
            x++
            break
        }
        else if (Mod(a*(A_Index - 1) + start + 1 + x,v) == 0) {
            start := a*(A_Index - 1) + start + 1 + x
            a *= v
            x := 0
            break
        }
    }
}

MsgBox % start - ListPart2.Length()