FizzBuzz in F#

FizzBuzz.fs

let fizzDiv ys str x =
    if ys |> List.forall (fun y -> x % y = 0)
    then Some str
    else None

let fizzBuzzChecks x =
    (fizzDiv [3;5] "FizzBuzz" x)
    |> Option.orElse (fizzDiv [5] "Buzz" x)
    |> Option.orElse (fizzDiv [3] "Fizz" x)
    |> Option.defaultValue (string x)

let fizzBuzz =
    [1..100] |> List.map fizzBuzzChecks

[<EntryPoint>]
let main argv =
    fizzBuzz |> List.iter System.Console.WriteLine
    0