Fizz Buzz in elm

fizzbuzz.elm

import Graphics.Element exposing (Element, flow, down, show)
import List exposing (map)

main : Element
main = 
  let fizzBuzz n = case (n % 3, n % 5) of
    (0, 0) -> "FizzBuzz"
    (0, _) -> "Fizz"
    (_, 0) -> "Buzz"
    _      -> toString n
  in map fizzBuzz [1..100] |> map show |> flow down

Changes made from original to make it compile and run in http://elm-lang.org/try