With a timer

Only update has to change. The original is on the left.

update : Msg -> Model -> (Model, Cmd Msg)    |  update : Msg -> Model -> (Model, Cmd Msg)
update msg model =                           |  update msg model =
  case msg of                                |    case msg of
    ProduceRandomValue _ ->                  |      ProduceRandomValue _ ->
      (model, Cmd.none)                      |        (model, askForRandomValue)           ---------
                                             |
    HandleRandomValue value ->               |      HandleRandomValue value ->
      ( includeRandomValue value model       |        ( includeRandomValue value model
      , askForRandomValue                    |        , Cmd.none                           ----------
      )                                      |        )