anchor.diff:  
   type private TokenOption =
       | Debug
  -    | Up
  -    | Down
       | All
       | Bin
       | Src
  
positive.code: 
  let rec private commandAddView (upReferences : bool) (downReferences : bool) (modified : bool) (app : string option) (staticView : bool) (test: bool) (args : string list) =
      match args with
      | TokenOption TokenOption.Up :: tail -> tail |> commandAddView true downReferences modified app staticView test
      | TokenOption TokenOption.Ref :: tail -> tail |> commandAddView true downReferences modified app staticView test
      | TokenOption TokenOption.Down :: tail -> tail |> commandAddView upReferences true modified app staticView test
      | TokenOption TokenOption.Src :: tail -> tail |> commandAddView upReferences true modified app staticView test
      | TokenOption TokenOption.Modified :: tail -> tail |> commandAddView upReferences downReferences true app staticView test
      | TokenOption TokenOption.App :: appFilter :: tail -> tail |> commandAddView upReferences downReferences modified (Some appFilter) staticView test
  
negative.code: let private (|TokenOption|_|) (token : string) =
      match token with
      | "--debug" -> Some TokenOption.Debug
      | "--bin" -> Some TokenOption.Bin
      | "--src" -> Some TokenOption.Src
      | "--all" -> Some TokenOption.All
  