anchor.diff:  
   let UsageContent() =
       let content = [
  -        [MainCommand.Usage], "help [<command|workspace|repo|view|app>]: display help on command or area"
  +        [MainCommand.Usage], "help [<command|wks|repo|view|app>]: display help on command or area"
           [MainCommand.Version], "version : display full-build version"
           [MainCommand.Workspace; MainCommand.Setup], "setup <git|gerrit> <master-repository> <master-artifacts> <local-path> : setup a new environment in given path"
           [MainCommand.Workspace; MainCommand.Init], "init <git|gerrit> <master-repository> <local-path> : initialize a new workspace in given path"
  
positive.code:     match args with
      | TokenOption TokenOption.Shallow :: tail -> tail |> commandClone true all mt
      | TokenOption TokenOption.All :: tail -> tail |> commandClone shallow true mt
      | TokenOption TokenOption.Multithread :: tail -> printfn "WARNING: clone --mt is deprecated"
                                                       tail |> commandClone shallow all true
      | TokenOption TokenOption.NoMultithread :: tail -> tail |> commandClone shallow all false
      | [] -> Command.Error MainCommand.Clone
      | Params filters -> Command.CloneRepositories { Filters = set filters; Shallow = shallow; All = all; Multithread = mt }
  
negative.code: let private (|Token|_|) (token : string) =
      match token with
      | "version" -> Some Version
      | "wks" -> Some Workspace
  
      | "help" -> Some Help
      | "upgrade" -> Some Upgrade
  