anchor.diff:      static member MakeGeneric (name : string) (types : TypeSyntax seq) =
           let indexOfTilde = name.IndexOf('`')
           let name = if indexOfTilde > 0 then name.Substring(0, indexOfTilde) else name
  -        let typeList = SyntaxFactory.TypeArgumentList(SyntaxFactory.SeparatedList<TypeSyntax>(types))
  +        let typeList = SyntaxFactory.TypeArgumentList(types |> toSeparatedList)
           SyntaxFactory.GenericName(name).WithTypeArgumentList(typeList)
   
       static member FromType (t:System.Type) =
  
positive.code: /// set { body }
  let addSetter body (property:PropertyDeclarationSyntax) =
      property.AddAccessorListAccessors(SyntaxFactory.AccessorDeclaration(SyntaxKind.SetAccessorDeclaration, body))
  
  let identifier (identifierName : string) = SyntaxFactory.IdentifierName(identifierName)
  
  /// onExpr.name
  let memberAccess (name : string) (onExpr : ExpressionSyntax) =
  
negative.code: 
  /// new createdType(argumentExpressions)
  let objectCreation createdType argumentExpressions =
      let args = argumentExpressions |> Seq.map (fun a -> SyntaxFactory.Argument(a))
      let argList = SyntaxFactory.ArgumentList(args |> toSeparatedList)
  
      SyntaxFactory.ObjectCreationExpression(createdType)
          .WithArgumentList(argList)
  
  /// expression(argumentExpressions);
  let invocation (expression : ExpressionSyntax) (argumentExpressions : ExpressionSyntax seq) =
      let args = argumentExpressions |> Seq.map (fun a -> SyntaxFactory.Argument(a))
      let argList = SyntaxFactory.ArgumentList(args |> toSeparatedList)
  
      SyntaxFactory.InvocationExpression(expression).WithArgumentList(argList)
  
  