anchor.diff:  let throwIfArgumentNull argName =
       if'
           (equals (identifier argName) (Literal.Null))
  -        (block [| throwException typesyntaxof<System.ArgumentNullException> [|Literal.String argName|] |])+        (block [ throwException typesyntaxof<System.ArgumentNullException> [|Literal.String argName|] ])
positive.code:         SyntaxFactory.LiteralExpression(SyntaxKind.NumericLiteralExpression, SyntaxFactory.Literal(i))
      let Zero = Int 0
  
  let addUsings (usings : string array) (compilationUnit : CompilationUnitSyntax) =
      let directives = usings |> Array.map (fun name ->
          SyntaxFactory.UsingDirective(SyntaxFactory.IdentifierName(name)))
  
      compilationUnit.AddUsings(directives)
  
  let inline addBaseTypes (types : TypeSyntax array) (input:^T) =
      let baseTypes = types |> Array.map (fun t -> SyntaxFactory.SimpleBaseType(t) :> BaseTypeSyntax)
      (^T : (member AddBaseListTypes : BaseTypeSyntax array -> ^T) (input, baseTypes))
  
  let inline addModifiers syntaxKinds (input:^T) =
      let tokens = syntaxKinds |> Array.map (fun k -> SyntaxFactory.Token(k))
      (^T : (member AddModifiers : SyntaxToken array -> ^T) (input, tokens))
  
  let inline withSemicolon (input:^T) =
  
negative.code: /// set { body }
  let addSetter body (property:PropertyDeclarationSyntax) =
      property.AddAccessorListAccessors(SyntaxFactory.AccessorDeclaration(SyntaxKind.SetAccessorDeclaration, body))
  
  /// onExpr.name
  let memberAccess (name : string) (onExpr : ExpressionSyntax) =
  