public static Cons yieldFormatArguments(Cons tree) {
    { String formatstring = "";
      Cons formatarguments = Stella.NIL;

      tree.rest.rest = tree.rest.rest.reverse();
      { Stella_Object arg = null;
        Cons iter000 = tree.rest.rest;

        for (;!(iter000 == Stella.NIL); iter000 = iter000.rest) {
          arg = iter000.value;
          if (Stella_Object.stringP(arg)) {
            formatstring = ((StringWrapper)(arg)).wrapperValue + formatstring;
          }
          else if (arg == Stella.EOL) {
            formatstring = "~%" + formatstring;
          }
          else {
            formatstring = "~A" + formatstring;
            formatarguments = Cons.cons(Stella_Object.clTranslateATree(arg), formatarguments);
          }
        }
      }
      formatarguments = Cons.cons(StringWrapper.wrapString(formatstring), formatarguments);
      return (formatarguments);
    }
  }