anchor.diff:      (solutions : string list) (entities : string list) extraArgs = 
     let ccs() = 
       let baseArgs = 
  -      [ "url", env.url.ToString()
  -        "ap", env.ap.ToString()
  +      [ "ap", env.ap.ToString()
           "method", env.method.ToString()
           "out", location
           "solutions", (solutions |> fun ss -> String.Join(",", ss))
  
positive.code:     let optionalArgs =
        baseArgs
        |>(
          addIfSome "username" usr >>
          addIfSome "password" pwd >>
          addIfSome "domain" dmn >>
  
negative.code:     let optionalArgs =
        baseArgs
        |>(
          addIfSome "url" (env.url ?|> fun x -> x.ToString()) >>
          addIfSome "username" usr >>
          addIfSome "password" pwd >>
          addIfSome "domain" dmn >>
  