import Html exposing (div, button, text)
import Html.App exposing (beginnerProgram)
import Html.Events exposing (onClick)

type Msg
    = Increment

main =
    beginnerProgram
        { model = 0, view = view
        , update = \Increment model -> model + 1 }

view model =
    div [][ div [][ text (toString model) ]
           , button [ onClick Increment ][ text "+" ] ]
