F # stackoverflow project euler # 4

Я работаю над проблемой четырех Project Euler и запускаю исключение stackoverflow. Я не прошу помощи в решении проблемы, я просто хотел бы объяснить, почему я получаю исключение stackoverflow. Это обычно из-за бесконечной рекурсии, но я не верю, что это так на этот раз (если я просто слепой и не вижу его прямо сейчас, дайте мне знать).

Здесь код:

let Euler4 =

let reverse sum =
    let rec loop (n,x) =
        if n = 0
        then
            x
        else
            loop (n/10,(x*10) + (n%10))

    loop (sum, 0);

let isPalindrome arg = (arg = (reverse arg));

let findPalindromes (startx,starty) =
    let rec loop (x,y) acc =
        let result = if isPalindrome (x * y) then ((x,y) :: acc) else acc;
        let next = match (x,y) with
            | (x,y) when y = 100 -> (x-1,starty)
            | _ -> (x,y-1)
        if x = 100 then
            result
        else
            loop (next) result

    loop (startx,starty) [];


let value = (999,999);
printfn "%A" (findPalindromes value);

;