Bizmonger.ActivePatterns (nuget): module ValuesAP  let (|Equal|Different|) = function     | v1, v2 when v1 = v2 -> Equal     | _                   -> Different  module ListsAP  let (|None|One|Many|) (x:'a list) =     match x with     | x when x.Length > 1 -> Many     | x when x.Length = 1 -> One     | _                   -> None  module NumbersAP  let (|Positive|Neutral|Negative|) = function     | x when x > 0 -> Positive     | x when x < 0 -> Negative     | _            -> Neutral
Keywords: "F#"|"FSharp"|"Active|Patterns"