let fizzbuzz n = match n mod 3, n mod 5 with | 0, 0 -> "fizzbuzz" | 0, _ -> "fizz" | _, 0 -> "buzz" | _ -> string_of_int n