anchor.diff:    type LandScenarioAndProbability = { landScenario: int list; probability: float }
     type MostCommonLandScenarios =
       { mostCommonLandScenarios: LandScenarioAndProbability list list }
  -  let landDistributions n =
  -    LogLine.info ("Request started - distributions " + n.ToString()) |> logger.Log
  -    let distributions = distributionsCheckCacheAndReact n
  -    match distributions with
  +  let mostCommonLands n =
  +    LogLine.info ("Request started - most common lands " + n.ToString()) |> logger.Log
  +    let mostCommonLands = mostCommonLandsCheckCacheAndReact n
  +    match mostCommonLands with
         | Some x ->
           let tupleToRecord = fun (scenario, probability) -> { landScenario=scenario; probability=probability}
           JSON { mostCommonLandScenarios =  List.map (List.map tupleToRecord) x }
  
positive.code:   let averagesCheckCacheAndReact =
      checkSimulationCacheAndReact averagesKey averageLandsPerTurn
  
    let distributionsCheckCacheAndReact =
      checkSimulationCacheAndReact distributionsKey mostCommonLandScenariosPerTurn
  
  module Deck =
    open ApiHelpers
  
negative.code:         pathScan "/deck/%d/averages" (fun d ->
              GET >=> averageLands d)
          pathScan "/deck/%d/mostcommon" (fun d ->
              GET >=> mostCommonLands d) ]
  