let cycle list =
    seq {
        while true do
            for item in list do
                yield item
    }

let zipWith f firstSeq secondSeq = Seq.zip firstSeq secondSeq |> Seq.map (fun (x,y) -> f x y)

let numbers = Seq.initInfinite id |> Seq.skip 1 |> Seq.map string
let fizzez = cycle [ ""; ""; "Fizz" ]
let buzzez = cycle [ ""; ""; ""; ""; "Buzz" ]
let words = zipWith (+) fizzez buzzez

let choice = max
let fizzBuzz = zipWith choice words numbers

let fizzBuzz100 = fizzBuzz |> Seq.take 100 |> List.ofSeq
printfn "%A" fizzBuzz100