FizzBuzz in F#

fizzbuzz.fs

// DivisibleBy Active Pattern special syntax for defining named patterns that can partition data
let (|DivisibleBy|_|) divisor i =
    if i % divisor = 0 then Some () else None
// Use the pattern, easy.
for i in 1..100 do
    match i with
    | DivisibleBy 3 & DivisibleBy 5 -> printfn "FizzBuzz"
    | DivisibleBy 3 -> printfn "Fizz"
    | DivisibleBy 5 -> printfn "Buzz"
    | _ -> printfn "%d" i