let numbers =
seq { 1 .. 100 }
|> Seq.map (fun n ->
match n % 3 = 0, n % 5 = 0 with
| true, true -> "FizzBuzz"
| true, false -> "Fizz"
| false, true -> "Buzz"
| _, _ -> string n)
numbers |> Seq.iter (printfn "%s")
bGV0IG51bWJlcnMgPQogICAgc2VxIHsgMSAuLiAxMDAgfQogICAgfD4gU2VxLm1hcCAoZnVuIG4gLT4KICAgICAgICBtYXRjaCBuICUgMyA9IDAsIG4gJSA1ID0gMCB3aXRoCiAgICAgICAgfCB0cnVlLCAgdHJ1ZSAgLT4gIkZpenpCdXp6IgogICAgICAgIHwgdHJ1ZSwgIGZhbHNlIC0+ICJGaXp6IgogICAgICAgIHwgZmFsc2UsIHRydWUgIC0+ICJCdXp6IgogICAgICAgIHwgXywgICAgIF8gICAgIC0+IHN0cmluZyBuKQoKbnVtYmVycyB8PiBTZXEuaXRlciAocHJpbnRmbiAiJXMiKQ==