anchor.diff:  
   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
  
positive.code: let rec private commandAlterView (forceDefault : bool option) (forceUpReferences : bool option) (forceDownReferences : bool option) (args : string list) =
      match args with
      | TokenOption TokenOption.Default :: tail -> tail |> commandAlterView (Some true) forceUpReferences forceDownReferences
      | TokenOption TokenOption.Up :: tail -> tail |> commandAlterView forceDefault (Some true) forceDownReferences
      | TokenOption TokenOption.Down :: tail -> tail |> commandAlterView forceDefault forceUpReferences (Some true)
      | TokenOption TokenOption.Bin :: tail -> tail |> commandAlterView forceDefault (Some false) (Some false)
      | [ViewId name] -> Command.AlterView { Name = name ; Default = forceDefault; UpReferences = forceUpReferences; DownReferences = forceDownReferences }
      | _ -> Command.Error MainCommand.AlterView
  
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
  