Fizz Buzz in elm

fizzbuzz.elm

import Graphics.Element (Element, flow, down)
import List (map)
import Text (asText)

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 asText |> flow down

Nice code! Made some changes to compile under latest Elm release - https://gist.github.com/kgashok/ff4f7e06dacd30febf901efd820e58bf

You inspired me to write a dynamic version of fizzBuzz. I am sure it can be improved. Let me know what you think.
https://github.com/kgisl/project-ideas/blob/master/elm/fizzBuzz.elm