Alternative FizzBuzz in F#

let genFB (v: int, s: string) =
    fun (n, os) -> 
        match n%v with
        | 0 -> (n, os+s)
        | _ -> (n, os)

let getStr (v: int, s: string) =
    if (String.length s > 0) then s else sprintf "%i" v

let fizzbuzz max =
    seq {1..max}
    |> Seq.map ( fun n -> (n, "") )
    |> Seq.map ( genFB(3, "fizz") )
    |> Seq.map ( genFB(5, "buzz") )
    |> Seq.map ( genFB(7, "bang") )
    |> Seq.map ( getStr )
    |> Seq.iter ( fun s -> printfn "%s" s )