User sees initial value and roll button

random-number.elm

+import Html exposing (..)
+import Html.Events exposing (onClick)
+import Html.App as App
+
+main =
+  App.program
+    { init = init,
+      view = view,
+      update = update,
+      subscriptions = subscriptions
+    }
+
+type alias Model = { dieFace : Int }
+type Msg = Roll
+
+init : (Model, Cmd Msg)
+init = 
+  (Model 1, Cmd.none)
+
+update : Msg -> Model -> (Model, Cmd Msg)
+update msg model =
+  case msg of
+    Roll ->
+      (model, Cmd.none)
+
+view : Model -> Html Msg
+view model =
+  div []
+  [ h1 [] [ text (toString model.dieFace) ],
+  button [ onClick Roll ] [ text "Roll" ]
+  ]
+
+subscriptions : Model -> Sub Msg
+subscriptions model =
+  Sub.none