gistfile1.txt

namespace DesignTime

module ABC = 

    let checkLocalCache() = 
       async { 
           while true do
               try 
                 do! Async.Sleep(10min)
                 let files = ... // get lis of current files in cache
                 let fileOrder = ... // sort files in last accessed order
                 let filesToDelete - ... // work out what to delete
                 // delete the files 
               with err -> 
                  printfn "unexpected error in background cahce check, continuing: %A" err
                  
      }
    checkLocalCache() |> Async.Start