F# - counting different words matching different conditions