public static Cons clTranslateOperatorTree(Cons tree) {
    { Symbol operator = null;
      Surrogate owner = null;
      Cons arguments = null;

      { Object [] caller_MV_returnarray = new Object[2];

        operator = Cons.destructureCallTree(tree, caller_MV_returnarray);
        owner = ((Surrogate)(caller_MV_returnarray[0]));
        arguments = ((Cons)(caller_MV_returnarray[1]));
      }
      owner = owner;
      if (operator == Stella.SYM_STELLA_i) {
        if ((arguments.length() == 2) &&
            arguments.memberP(Stella.ONE_WRAPPER)) {
          if (Stella_Object.eqlP(arguments.value, Stella.ONE_WRAPPER)) {
            arguments = arguments.rest;
          }
          else {
            arguments.rest = Stella.NIL;
          }
          operator = Stella.internCommonLispSymbol("1+");
        }
      }
      else if (operator == Stella.SYM_STELLA__) {
        if ((arguments.length() == 2) &&
            Stella_Object.eqlP(arguments.rest.value, Stella.ONE_WRAPPER)) {
          arguments.rest = Stella.NIL;
          operator = Stella.internCommonLispSymbol("1-");
        }
      }
      else if (operator == Stella.SYM_STELLA_EQp) {
        return (((Cons)(Stella_Object.clTranslatePlainBooleanTest(tree, false))));
      }
      else {
      }
      if ((operator == Stella.SYM_STELLA_i) ||
          ((operator == Stella.SYM_STELLA__) ||
           ((operator == Stella.SYM_STELLA_$) ||
            (operator == Stella.SYM_STELLA_s)))) {
        operator = ((Symbol)(Stella.$CL_OPERATOR_TABLE$.lookup(operator)));
      }
      else {
      }
      return (Cons.cons(Symbol.clTranslateGlobalSymbol(operator), Cons.clTranslateListOfTrees(arguments).concatenate(Stella.NIL, Stella.NIL)));
    }
  }