(*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*)
let fizzBuzz value =
match value with
| value when value % 15 = 0 -> printfn "FizzBuzz"
| value when value % 3 = 0 -> printfn "Fizz"
| value when value % 5 = 0 -> printfn "Buzz"
| value -> printfn "%d" value
seq { 1..100 }
|> Seq.iter fizzBuzz