-- | A normally-distributed reader (mean and std. dev. configurable) and
--   n exponentially-distributed writers (means configurable).
typicalScenario :: (Double, Double) -> [Double] -> Scenario
typicalScenario (rmean, rstd_dev) writers = Scenario {
      sim_reader = SimulationReader (normalDistr rmean rstd_dev)
    , sim_writers = flip fmap writers $ \wmean -> SimulationWriter (exponential (1/wmean))
    }
typicalScenario :: (Double, Double) -> [Double] -> Scenario
typicalScenario (rmean, rstd_dev) writers = Scenario {
      sim_reader = SimulationReader (normalDistr rmean rstd_dev)
    , sim_writers = flip fmap writers $ \wmean -> SimulationWriter (exponential (1/wmean))
    }
typicalScenario (rmean, rstd_dev) writers = Scenario {
      sim_reader = SimulationReader (normalDistr rmean rstd_dev)
    , sim_writers = flip fmap writers $ \wmean -> SimulationWriter (exponential (1/wmean))
    }