anchor.diff:          MainCommand.Bind, "bind <projectId-wildcard>+ : update bindings"
           MainCommand.Clean, "clean : DANGER! reset and clean workspace (interactive command)"
           MainCommand.History, "history [--html] : display history since last baseline"
  -        MainCommand.Upgrade, "upgrade : upgrade full-build to latest available version"
  +        MainCommand.Upgrade, "upgrade [--alpha|--beta]: upgrade full-build to latest available version"
           MainCommand.Unknown, ""
           MainCommand.UpdatePackage, "update package : update packages"
           MainCommand.OutdatedPackage, "outdated package : display outdated packages"
  
positive.code:     | "--view" -> Some TokenOption.View
      | "--modified" -> Some TokenOption.Modified
      | "--html" -> Some TokenOption.Html
      | "--rc" -> Some TokenOption.Rc
      | _ -> None
  
  
  
negative.code:     | View
      | Modified
      | Html
      | Alpha
      | Beta
  
  let private (|TokenOption|_|) (token : string) =
      match token with
  