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:           | _, Error es, Some u -> List.rev (u::es) |> Error
        collect false [] [] 0 (strings.Length-1)
  
      let depricated = "Depricated"
  
      let usage commandName (options:(string * string * Parser<_>) list) =
        let sb = Text.StringBuilder("Usage: ")
        let add (text:string) = sb.Append(text) |> ignore
        add commandName
  
negative.code:       "--summary", "Print out a summary after all tests are finished.", Args.none Summary
        "--version", "Print out version information.", Args.none Version
        "--summary-location", "Print out a summary after all tests are finished including their source code location.", Args.none Summary_Location
        "--fscheck-max-tests", "Set FsCheck maximum number of tests (default: 100).", Args.number FsCheck_Max_Tests
        "--fscheck-start-size", "Set FsCheck start size (default: 1).", Args.number FsCheck_Start_Size
        "--fscheck-end-size", "Set FsCheck end size (default: 100 for testing and 10,000 for stress testing).", Args.number FsCheck_End_Size
        "--my-spirit-is-weak", Args.deprecated, Args.none My_Spirit_Is_Weak
        "--allow-duplicate-names", "Allow duplicate test names.", Args.none Allow_Duplicate_Names
        "--colours", "Set the level of colours to use. Can be 0, 8 (default) or 256.", Args.number Colours
        "--no-spinner", "Disable the spinner progress update.", Args.none No_Spinner
    ]
  
  