FizzBuzz in OCaml / F# style

let (|>) x f = f x
in
for i = 1 to 100 do (
    match i mod 3, i mod 5 with
    | 0, 0 -> "FizzBuzz"
    | 0, _ -> "Fizz"
    | _, 0 -> "Buzz"
    | _, _ -> string_of_int i
) |> Printf.printf "%s\n"
done