An alternative approach to the FizzBuzz problem that doesn't use modules

FizzBuzz.fs

module Program = 
    type Fizz = Fizz
    type Buzz = Buzz

    let fizzBuzzLines = 
        let fizzPattern = Seq.initInfinite (fun _ -> [ None; None; Some Fizz  ] ) |> Seq.concat
        let buzzPattern = Seq.initInfinite (fun _ -> [ None; None; None; None; Some Buzz  ] ) |> Seq.concat
        let fizzBuzzPattern = 
            buzzPattern
            |> Seq.zip fizzPattern

        fizzBuzzPattern
            |> Seq.mapi(fun i (fizz, buzz) -> 
                          match (fizz, buzz) with
                          | Some(_), Some(_) -> "FizzBuzz"
                          | Some(_), _ -> "Fizz"
                          | _, Some(_) -> "Buzz"
                          | None, None -> string (i + 1))

    let [<EntryPoint>] main _ =
        fizzBuzzLines
            |> Seq.take 50
            |> Seq.iter (printfn "%s")
        
        0