Cacher is the code snippet organizer for pro developers

let make_scenario_pmf : (door => real) => (door => choice => real) => (scenario => real) = 
  (door_pmf) => (strategy) => (s) => Real.({
    door_pmf(s.prize) * strategy(s.first_guess, s.choice)
  })