Promise Inside Chaining

PromiseInsideChaining.fs

fetch("http://test1")  
    .Then(fun res1 ->
        fetch("http://test2")
            .Then(fun res2 ->
                fetch("http://test3")
                    .Then(fun res3 ->
                        fetch("http://test4")
                            .Then(fun res4 ->
                                printfn "Got last response: %A" res4
                            ) |> ignore
                    ) |> ignore
            ) |> ignore
    ) |> ignore
|> ignore