anchor.diff:  open System
   open System.Threading
   open Util
  +
  +module Threshold =
  +    open FSharp.Data
  +    open System.IO
  +
  +    type Thresholds = CsvProvider<Schema = "Feed (string), Threshold (float)", HasHeaders = false>
  +
  +    let loadFromFile path =
  +        match File.Exists path && (FileInfo path).Length > 0L with
  +        | true ->
  +            Thresholds.Load(uri = path).Rows
  +            |> Seq.map (fun row -> (row.Feed, row.Threshold))
  +            |> Map.ofSeq
  +        | false -> Map.empty
   
   let showFeeds feeds =
       let create i f =
  
positive.code:             (f, avg)
          )
  
      let isPastAverage f avg =
          float f.Listeners >= float avg.Hourly.[hour] * threshold
  
      feeds
  
negative.code:     #endif
      |> Array.iteri create
  
  let localPath path =
      sprintf "%s%s"
          AppDomain.CurrentDomain.BaseDirectory
          path
  
  let averagesPath   = localPath "averages.csv"
  let thresholdsPath = localPath "thresholds.csv"
  
  let update threshold avgs =
      let hour  = DateTime.UtcNow.Hour
  