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

min := {wait:999999,boat:""}

for k, v in StrSplit(List[2],",") {
  if (v=="x")
    continue
  wait := v - Mod(timestamp,v)
  if (wait < min.wait) {
    min.wait := wait
    min.boat := v
  }
}
MsgBox % min.boat * min.wait