anchor.diff:          |> Seq.map toCommodityPrice
           |> Seq.toList
   
  -    let printPrices (prices : list<CommodityPrice>) =
  +    let printNewPrices (prices : list<CommodityPrice>) =
           let printMatch (price : CommodityPrice) =
               do printfn "%s - %s - %s" price.Commodity (price.Date.ToString("yyyy-MM-dd")) (price.Price.ToString())
  -        do printfn "Found %d prices:" <| List.length prices
  +        match List.length prices with
  +        | length when length = 0 -> do printfn "No new prices to add."
  +        | length when length = 1 -> do printfn "Adding %d price:" length
  +        | otherwise              -> do printfn "Adding %d prices:" <| List.length prices
           prices
           |> List.iter printMatch
   
  
positive.code:             | otherwise -> List.Empty
  
          let earlierPrices = getEarlierMissingPrices usage config cpDB
          printfn "New earlier prices for %s:" usage.Commodity
          printPrices earlierPrices
          let laterPrices = getLaterMissingPrices usage config cpDB
          printfn "New later prices for %s:" usage.Commodity
          printPrices laterPrices
          let allPrices = 
              earlierPrices @ cpDB.Prices @ laterPrices
              |> List.sortBy (fun p -> p.Date)
  
negative.code:             | Some d -> System.Net.WebUtility.UrlEncode(d.ToString(dateFormat))
              | None   -> System.Net.WebUtility.UrlEncode(System.DateTime.Today.ToString(dateFormat))
          let baseURL = sprintf "https://www.google.com/finance/historical?q=%s&startdate=%s&enddate=%s&num=100" query startDate endDate
          baseURL
  
      
  