import Html exposing (text)

testingNothing : List number -> String
testingNothing list =
  case List.head list of
    Just num ->
      "List is not empty"
    Nothing ->
      "List is empty. Nothing returned from List.head"

main =
  text <| testingNothing([])