Factorial in Elm

factorial.elm

import Html exposing (text)

fact : Int -> Int
fact n = 
  case n of
    0 -> 1
    1 -> 1
    _ -> n * fact(n-1)
    
factorial : Int -> Int
factorial n = 
  if n < 1 then 
    1
  else 
    n * factorial(n-1)
    
main = 
   fact 3 |> String.fromInt |> text

facts first