OcamlでFizzBuzz

fizzbuzz.ml

let fizzbuzz n = match n mod 3, n mod 5 with
        | 0,0 -> print_string "fizzbuzz\n"
        | 0,_ -> print_string "fizz\n"
        | _,0 -> print_string "buzz\n"
        | _,_ -> print_int    n;
                 print_string "\n";;


let rec loop x = match x with
             | 100 -> fizzbuzz(x)
             | _ ->   fizzbuzz(x);
                        loop(x+1);;
loop(1);;