let (|Ben|_|) text = if text = "Ben" then Some(Ben) else None

let names = [ "Ben"; "Bob"; "Richard"; "Ben" ]

let benCount = names |> Seq.choose (|Ben|_|) |> Seq.length

printfn "Ben count is %i" benCount