FizzBuzz implementation written in Standard ML

fizz_buzz.sml

fun fizzBuzz n =
  let
    fun fizzBuzz' n' =
      case (n' mod 3, n' mod 5) of
           (0, 0) => "FizzBuzz"
         | (0, _) => "Fizz"
         | (_, 0) => "Buzz"
         | _ => Int.toString n'
    fun proc n' =
      let
        val _ = (print o fizzBuzz') n'
        val _ = print "\n"
      in
        ()
      end
    val range = List.tabulate (n, fn n' => n' + 1)
  in
    List.app proc range
  end