ctran

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"