L := FileOpen("day10_input.txt","R").Read()
Sort, L, N

List := StrSplit(L,"`r`n")

c := 0

For k, v in List {
  if (v-c)==1
    d1++
  else
    d3++
  c := v
}

MsgBox % d1*(d3+1)