anchor.diff:      static member Unit r = UnitArg r
   
   
  -type ArgInfo (name,action,help) =
  +type ArgInfo (name, action, help) =
       /// Return the name of the argument
       member x.Name = name
       /// Return the argument type and action of the argument
  
positive.code: type ArgParser () =
      static let getUsage specs u =
          let sbuf = System.Text.StringBuilder 100  
          let pstring (s : string) =
              sbuf.Append s |> ignore
          let pendline s =
              pstring s
              pstring "\n"
          pendline u
          specs
          |> List.iter (fun (arg : ArgInfo) ->
              match arg.Name, arg.ArgType, arg.HelpText with
              | (s, (UnitArg _ | SetArg _ | ClearArg _), helpText) ->
                  pstring "\t"; pstring s; pstring ": "; pendline helpText
              | (s, StringArg _, helpText) ->
                  pstring "\t"; pstring s; pstring " <string>: "; pendline helpText
              | (s, IntArg _, helpText) ->
                  pstring "\t"; pstring s; pstring " <int>: "; pendline helpText
              | (s, FloatArg _, helpText) ->
                  pstring "\t"; pstring s; pstring " <float>: "; pendline helpText
              | (s, RestArg _, helpText) ->
                  pstring "\t"; pstring s; pstring " ...: "; pendline helpText)
  
          pstring "\t"
          pstring "--help"
  
negative.code:     /// according to the argument processing specifications "specs".
      /// Args begin with "-". Non-arguments are passed to "f" in
      /// order.  "use" is printed as part of the usage line if an error occurs.
      static member Parse (specs, ?other, ?usageText) =
          let current = ref 0
          let argv = System.Environment.GetCommandLineArgs () 
          try ArgParser.ParsePartial (current, argv, specs, ?other = other, ?usageText = usageText)
          with
              | Bad h
              | HelpText h ->
                  System.Console.Error.WriteLine h
                  System.Console.Error.Flush ()
                  exit 1
              | e ->
                  reraise ()
      #endif
  
  
  