let fizzbuzz x = match x mod 3, x mod 5 with
  | 0, 0 -> "FizzBuzz"
  | 0, _ -> "Fizz"
  | _, 0 -> "Buzz"
  | _ -> string_of_int x

let _ = for i = 1 to 100 do print_endline (fizzbuzz i) done