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