anchor.diff:      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 }
  
positive.code: let private (|Token|_|) (token : string) =
      match token with
      | "version" -> Some Version
      | "workspace" -> Some Workspace
  
      | "help" -> Some Help
      | "upgrade" -> Some Upgrade
  
negative.code: let rec private commandPublish (mt : bool) view (push : bool) (args : string list) =
      match args with
      | [] -> Command.Error MainCommand.Publish
      | TokenOption TokenOption.NoMultithread :: tail -> tail |> commandPublish false view push
      | TokenOption TokenOption.View :: ViewId name :: tail -> tail |> commandPublish mt (Some name) push
      | TokenOption TokenOption.Push :: tail -> tail |> commandPublish mt view true
  