anchor.diff:    let inline addSnd b a = a,b
     let inline fst3 (a,_,_) = a
     let inline commaString (i:int) = i.ToString("#,##0")
  -  let inline tryParse (s:string) =
  +  let inline tryParse (s: string) =
       let mutable r = Unchecked.defaultof<_>
       if (^a : (static member TryParse: string * ^a byref -> bool) (s, &r))
  +    then Some r else None
  +  let inline tryParseNumber (s: string) =
  +    let mutable r = Unchecked.defaultof<_>
  +    if (^a : (static member TryParse: string * NumberStyles * IFormatProvider * ^a byref -> bool) (s, NumberStyles.Any, CultureInfo.InvariantCulture, &r))
       then Some r else None
     module Seq =
       let cons x xs = seq { yield x; yield! xs }
  
positive.code:         options |> Seq.map (fun (s,_,_) -> s.Length) |> Seq.max
        ["--help","Show this help message."]
        |> Seq.append (Seq.map (fun (s,d,_) -> s,d) options)
        |> Seq.where (snd >> (<>)depricated)
        |> Seq.iter (fun (s,d) ->
          add "  "
          add (s.PadRight maxLength)
  
negative.code:           | _, Error es, Some u -> List.rev (u::es) |> Error
        collect false [] [] 0 (strings.Length-1)
  
      let [<Obsolete "Use 'deprecated', not 'depricated">] depricated = "Deprecated"
      let deprecated = "Deprecated"
  
      let usage commandName (options: (string * string * Parser<_>) list) =
        let sb = Text.StringBuilder("Usage: ")
        let add (text:string) = sb.Append(text) |> ignore
        add commandName
  