Fix StackOverflow in big-ish nested CEs

[vzarytovskii]

Fixes SO in CE's like below:

module Testing

let test () =
    task {
            let c1 = failwith ""
            let c2 = failwith ""
            let c3 = failwith ""
            let c4 = failwith ""
            let c5 = failwith ""
            let c6 = failwith ""
            let c7 = failwith ""
            let c8 = failwith ""
            let c8 = failwith ""
            let c10 = failwith ""
            let c11 = failwith ""
            let c12 = failwith ""
            let c13 = failwith ""
            let c14 = failwith ""
            let c15 = failwith ""
            let c16 = failwith ""
            let c17 = failwith ""
            let c18 = failwith ""
            let c19 = failwith ""
            let c20 = failwith ""
            let c21 = failwith ""
            let c22 = failwith ""
            let c23 = failwith ""
            let c24 = failwith ""
            let c25 = failwith ""
            let c26 = failwith ""
            let c27 = failwith ""
            let c28 = failwith ""
            let c29 = failwith ""
            let c30 = failwith ""
            let c31 = failwith ""
            let c32 = failwith ""
            let c33 = failwith ""
            let c34 = failwith ""
            let c35 = failwith ""
            let c36 = failwith ""
            let c37 = failwith ""
            let c38 = failwith ""
            let c39 = failwith ""
            let c40 = failwith ""
            let c41 = failwith ""
            let c42 = failwith ""
            let c43 = failwith ""
            let c44 = failwith ""
            let c45 = failwith ""
            let c46 = failwith ""
            let c47 = failwith ""
            let c48 = failwith ""
            let c49 = failwith ""
            let c50 = failwith ""
            let c51 = failwith ""
            let c52 = failwith ""
            let c53 = failwith ""
            let c54 = failwith ""
            let c55 = failwith ""
            let c56 = failwith ""
            let c57 = failwith ""
            let c58 = failwith ""
            let c59 = failwith ""
            let c60 = failwith ""
            let c61 = failwith ""
            let c62 = failwith ""
            let c63 = failwith ""
            let c64 = failwith ""
            let c65 = failwith ""
            let c66 = failwith ""
            let c67 = failwith ""
            let c68 = failwith ""
            let c69 = failwith ""
            ()
    }

[<EntryPoint>]
let main _ =
    test () |> ignore
    printfn "Hello, World!"
    0

Not going to add any tests for it probably, it's a quick fix I'm making from browser to unblock myself from some resumable code experiments (+ have a fix separately from my branch, since it will also be beneficial in upstream), anyone else is welcome to add some though.

[github-actions]

⚠️ Release notes required, but author opted out

Warning

Author opted out of release notes, check is disabled for this pull request.
cc @dotnet/fsharp-team-msft

[vzarytovskii]

/run fantomas

[github-actions]

Ran fantomas: https://github.com/dotnet/fsharp/actions/runs/8602027134