getCacheValue key
|> Option.orElseWith ( fun _  ->
      async {
            let! newValue = fetchValue key
            newValue |>  Option.iter (setCacheValue key)
            return newValue
      } |> Async.RunSynchronously
)

    let getValue key =
        async {
            let value = getCacheValue key
            match value with
            | Some v -> return Some v
            | None ->
                let! newValue = fetchValue key
                match newValue with
                | None -> return None
                | Some nv ->
                    setCacheValue key nv |> ignore
                    return Some nv
        }

    let fetchAndCacheValue key =
        async {
            let! newValue = fetchValue key
            match newValue with
            | None -> return None
            | Some nv ->
                setCacheValue key nv |> ignore
                return Some nv
        }

    let getValue key =
        let value = getCacheValue key
        match value with
        | Some v -> Some v
        | None -> fetchAndCacheValue key |> Async.RunSynchronously