public static Stella_Object simplifyBquoteTree(Stella_Object tree) {
    if (Stella_Object.safePrimaryType(tree) == Stella.SGT_STELLA_CONS) {
      { Cons tree000 = ((Cons)(tree));

        { Cons cursor = tree000.rest;

          while (!(cursor == Stella.NIL)) {
            cursor.value = Stella_Object.simplifyBquoteTree(cursor.value);
            cursor = cursor.rest;
          }
          if (!(tree000.value == Stella.SYM_STELLA_LIST$)) {
            return (tree000);
          }
          switch (tree000.rest.length()) {
            case 1: 
              return (tree000.rest.value);
            case 2: 
              tree000.value = Stella.SYM_STELLA_CONS;
              return (tree000);
            default:
              return (tree000);
          }
        }
      }
    }
    else {
      return (tree);
    }
  }