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: 
  let rec private commandUpgrade (verStatus : string) (args : string list) =
      match args with
      | TokenOption TokenOption.Rc :: tail -> tail |> commandUpgrade "rc"
      | [] -> Command.Upgrade verStatus
      | [Param processId] -> Command.FinalizeUpgrade (System.Int32.Parse(processId))
      | _ -> Command.Error MainCommand.Upgrade
  
  
negative.code:     | View
      | Modified
      | Html
      | Alpha
      | Beta
  
  let private (|TokenOption|_|) (token : string) =
      match token with
  