so-39628628.elm

import Html exposing (..)
import Html.Events exposing (..)

main : Program Never Model Msg
main =
  Html.program
    { init = init
    , view = view
    , update = update
    , subscriptions = \_ -> Sub.none
    }


type alias Model =
  { message : String 
  }

type Msg
  = One
  | Two
  | Three
  | ChainMsgs (List Msg)

init = { message = "initializing" } ! []


update msg model =
  case msg of
    ChainMsgs msgs ->
      let
        chain msg1 (model1, cmds) =
          let (model2, cmds1) = update msg1 model1
          in model2 ! [ cmds, cmds1 ]
      in
        List.foldl chain (model ! []) msgs
    _ ->
      { model | message = model.message ++ ", " ++ toString msg } ! []

view model =
  div []
    [ div []
      [ button [ onClick (ChainMsgs [One, Two, Three]) ] [ text "Click me" ]
      ]
    , text model.message
    ]