fizzbuzz.sml

fun fizzbuzz' n =
  case (n mod 5 = 0, n mod 3 = 0) of
    (true, true)  => "FizzBuzz"
  | (true, false) => "Buzz"
  | (false, true) => "Fizz"
  | _             => Int.toString n

fun fizzbuzz n =
  let
    fun loop m =
      if m > n
      then ()
      else (print ((fizzbuzz' m) ^ "\n"); loop (m + 1))
  in
    loop 1
  end