let (|FizzBuzz|Fizz|Buzz|Number|) = function

  | value when value % 15 = 0 -> FizzBuzz

  | value when value % 3 = 0 -> Fizz

  | value when value % 5 = 0 -> Buzz

  | value -> Number value

​

let getNumbers start finish = seq { start..finish }

​

let print = function

  | FizzBuzz -> printfn "FizzBuzz"

  | Fizz -> printfn "Fizz"

  | Buzz -> printfn "Buzz"

  | Number value -> printfn "%d" value

​

getNumbers 1 100

|> Seq.iter print