у меня есть<select> HTML элемент с 3 вариантами и<p> элемент. в<p> элемент, который я хочу напечатать индекс текущего выбранного элемента в<select>, Например. если я выберу первый вариант, он должен напечатать 0, если я выберу второй вариант, он должен напечатать 1 и так далее. Как мне исходить из минимального кода, который приведен ниже?

import Html as H exposing (Html)
import Maybe
import Signal as S exposing (Address, (<~))

type alias Model = { selected : Maybe Int }
model = { selected = Nothing }

type Action = NoOp | Select Int
update action model =
  case action of
    NoOp -> model
    Select n -> { model | selected <- Just n }

view address model =
  H.div []
     [ H.select [] [ H.option [] [ H.text "0" ]
                   , H.option [] [ H.text "1" ]
                   , H.option [] [ H.text "2" ]
                   ]
     , H.p [] [ H.text <| Maybe.withDefault ""
                   <| Maybe.map toString model.selected ]
     ]

actions = Signal.mailbox NoOp
main = view actions.address <~ S.foldp update model actions.signal