Reverse.elm

module Reverse (..) where

import Html exposing (Html, text)
import String


reverse : List Char -> List Char
reverse str =
  case str of
    [] ->
      []

    head :: tail ->
      List.append [ head ] (reverse tail)


main : Html
main =
  [ 'h', 'e', 'l', 'l', 'o' ]
    |> List.foldl String.cons ""
    |> text

~result.md