let time_step = 10

​

let wait1 = async {

        for i in 1..10 do

            do! Async.Sleep time_step

            printfn "\nwait1: ... %i" (i*time_step)

    }

let wait2 = async {

        for i in 1..10 do

            do! Async.Sleep time_step

            printfn "\nwait2: ... %i" (i*time_step)

    }    

let runMeSync = async {

       wait1 |> Async.Start

       wait2 |> Async.Start

       do! Async.Sleep 1000

}

​

​

runMeSync |> Async.RunSynchronously