let uiContext = SynchronizationContext.Current
async {
    let! someStr = fetchFromSomeWebServiceThatBlocksForAReallLongTime ()
    do! switchContext uiContext
    myUILabel.Text <- someStr
} |> Async.Start