let make_module dice_results : (Tellstory.T) =
    let dice_calls = ref 0 in (* nr of times dice has been called *)
    Tellstory.Make(struct
      let dice n =
        let result = List.nth dice_results (!dice_calls) in
        dice_calls := !dice_calls + 1;
        result
    end)