Add intro talk for Lunch and Learn.

package.json

@@ -8,6 +8,7 @@
     "css": "parcel src/Css/index.html",
     "js": "parcel src/Js/index.html --no-cache",
     "slide": "parcel src/Slide/index.html --no-cache",
+    "intro": "parcel src/Intro/index.html --no-cache",
     "slow": "parcel src/Caterpillar/slow.html --no-cache --no-hmr",
     "fast": "parcel src/Caterpillar/fast.html --no-cache --no-hmr",
     "elmOne": "parcel src/Elm/oneApple.html --no-cache",

src/Intro/Tea.elm

@@ -0,0 +1,54 @@
+module Intro.Tea exposing (main)
+
+import Browser
+import Html exposing (Html, button, div, text)
+import Html.Attributes exposing (style)
+import Html.Events exposing (onClick)
+
+
+main =
+    Browser.sandbox { init = 0, update = update, view = view }
+
+
+
+-- MODEL
+
+
+type alias Model =
+    Int
+
+
+
+-- UPDATE
+
+
+type Msg
+    = Increment
+    | Decrement
+
+
+update msg model =
+    case msg of
+        Increment ->
+            model + 1
+
+        Decrement ->
+            model - 1
+
+
+
+-- VIEW
+
+
+view model =
+    div
+        [ style "display" "grid"
+        , style "width" "100px"
+        , style "grid-template-rows" "1fr 1fr 1fr"
+        , style "align-items" "center"
+        , style "margin" "auto"
+        ]
+        [ button [ onClick Decrement ] [ text "-" ]
+        , div [] [ text (String.fromInt model) ]
+        , button [ onClick Increment ] [ text "+" ]
+        ]