Just playing around... or perhaps a comprehension challenge. Can you figure out what this code does? Try it in http://elm-lang.org/try

pirates.elm

import Html exposing (text)

main = drink rum ye scurvies |> yarrrrrr

drink up me hearties =
  case hearties of
    [] -> me
    capn :: lads -> drink up me lads |> up capn

yarrrrrr = text << String.fromInt
rum = (+)
ye = 0
scurvies = [1, 2, 3, 4, 5]