anchor.diff:                  // Replace args, see NamedTailCallOpportunity constructor
                   let args' =
                       List.zip args tc.Args
  -                    |> List.map (fun (id, tcArg) -> com.GetIdentifier(ctx, tcArg))
  +                    |> List.map (fun (_id, tcArg) -> com.GetIdentifier(ctx, tcArg))
                   let varDecls =
                       List.zip args tc.Args
                       |> List.map (fun (id, tcArg) -> ident com ctx id, Some (com.GetIdentifierAsExpr(ctx, tcArg)))
  
positive.code:             transformFunction com ctx name args body
              ||> makeArrowFunctionExpression name
  
          | Fable.ObjectExpr (members, typ, baseCall) ->
            transformObjectExpr com ctx members baseCall
  
          | Fable.Call(Fable.Get(expr, Fable.FieldGet(fieldName="has"), _, _), info, _, range) ->
              let right, stmts = com.TransformAsExpr(ctx, info.Args.Head)
  
negative.code:     let clean (name: string) =
          // printfn $"clean: {name}"
          match name with
          | "Infinity" -> "float('inf')"
          | _ ->
              (name, Naming.NoMemberPart) ||> Naming.sanitizeIdent (fun _ -> false)
  