andThen : ( Model, Cmd msg ) -> (Model -> ( Model, Cmd msg )) -> ( Model, Cmd msg )
andThen ( beginModel, cmd1 ) advance =
    let
        ( newModel, cmd2 ) =
            advance beginModel
    in
        ( newModel, Cmd.batch [ cmd1, cmd2 ] )