suggestion.elm

delay : Time -> a -> Cmd a
delay t x =
    Task.perform (always x) <| Process.sleep t

cmd : msg -> Cmd msg
cmd msg =
    Task.perform (always msg) (Task.succeed msg)
    
initSeed = 100

update : Msg -> Model -> ( Model, Cmd Msg )
update msg model =
    case msg of
        InitForest forest ->
            let 
              newNum = Random.step (Random.int 0 100) initSeed
          in
            ( { model | forest = forest, probabilities = newNum, ready = True }
            , delay (Time.second*550) (Tick newNum)
            )

        Tick num ->
          let 
              newNum = Random.step (Random.int 0 100) num
          in
            if model.running && model.ready then
                ( { model | forest = incrementForest model, ready = False }, delay (Time.Second*500) (Tick newNum)

                )
            else
                ( model, Cmd.none )