anchor.diff:    let averagesCheckCacheAndReact =
       checkSimulationCacheAndReact averagesKey averageLandsPerTurn
   
  -  let distributionsCheckCacheAndReact =
  -    checkSimulationCacheAndReact distributionsKey mostCommonLandScenariosPerTurn
  +  let mostCommonLandsCheckCacheAndReact =
  +    checkSimulationCacheAndReact mostCommonLandsKey mostCommonLandScenariosPerTurn
   
   module Deck =
     open ApiHelpers
  
positive.code:         pathScan "/deck/%d/averages" (fun d ->
              GET >=> averageLands d)
          pathScan "/deck/%d/mostcommon" (fun d ->
              GET >=> landDistributions d) ]
  
negative.code:   let encodeLandColours (l : DeckLandQuantities) = l.colour1 * 100 + l.colour2
    let simulationKey n = "simulation:" + (sprintf "%5i" n)
    let averagesKey n = simulationKey n + ":averages"
    let mostCommonLandsKey n = simulationKey n + ":mostcommon"
    let otherKey key n =
      if key = (averagesKey n)
      then mostCommonLandsKey n
      else averagesKey n
  
    let redis() = new RedisClient(redisUrl)
  