module Main exposing (..)

import Browser
import Html exposing (Html, div, text)

-- MAIN
main =
  Browser.sandbox { init = init, update = update, view = view }

-- UPDATE
update : () -> Model -> Model
update _ model =
  model

-- MODEL
type alias Model = Int

init : Model
init = 3

-- VIEW
view : Model -> Html ()
view model =
    div [] [text (String.fromInt(factorial (model, 0)))]
    
factorial : (Int, Int) -> Int
factorial (i _) =
  if i <= 1 then 1 else i * (factorial (i - 1 , 1))