public static Cons combineTranslatedTrees() {
    { Cons otree = Stella.NIL;

      if ((((Keyword)(Stella.$TRANSLATOROUTPUTLANGUAGE$.get())) == Stella.KWD_COMMON_LISP) ||
          ((((Keyword)(Stella.$TRANSLATOROUTPUTLANGUAGE$.get())) == Stella.KWD_CPP) ||
           ((((Keyword)(Stella.$TRANSLATOROUTPUTLANGUAGE$.get())) == Stella.KWD_CPP_STANDALONE) ||
            (((Keyword)(Stella.$TRANSLATOROUTPUTLANGUAGE$.get())) == Stella.KWD_IDL)))) {
        { TranslationUnit unit = null;
          Cons iter000 = ((List)(Stella.$TRANSLATIONUNITS$.get())).theConsList;
          Cons collect000 = null;

          for (;!(iter000 == Stella.NIL); iter000 = iter000.rest) {
            unit = ((TranslationUnit)(iter000.value));
            if (collect000 == null) {
              {
                collect000 = Cons.cons(unit.translation, Stella.NIL);
                if (otree == Stella.NIL) {
                  otree = collect000;
                }
                else {
                  Cons.addConsToEndOfConsList(otree, collect000);
                }
              }
            }
            else {
              {
                collect000.rest = Cons.cons(unit.translation, Stella.NIL);
                collect000 = collect000.rest;
              }
            }
          }
        }
      }
      else if ((((Keyword)(Stella.$TRANSLATOROUTPUTLANGUAGE$.get())) == Stella.KWD_JAVA) ||
          (((Keyword)(Stella.$TRANSLATOROUTPUTLANGUAGE$.get())) == Stella.KWD_JAVA_STANDALONE)) {
        { TranslationUnit unit = null;
          Cons iter001 = ((List)(Stella.$TRANSLATIONUNITS$.get())).theConsList;
          Cons collect001 = null;

          for (;!(iter001 == Stella.NIL); iter001 = iter001.rest) {
            unit = ((TranslationUnit)(iter001.value));
            if (!TranslationUnit.unitIncludedInOtherUnitsP(unit)) {
              if (collect001 == null) {
                {
                  collect001 = Cons.cons(unit.translation, Stella.NIL);
                  if (otree == Stella.NIL) {
                    otree = collect001;
                  }
                  else {
                    Cons.addConsToEndOfConsList(otree, collect001);
                  }
                }
              }
              else {
                {
                  collect001.rest = Cons.cons(unit.translation, Stella.NIL);
                  collect001 = collect001.rest;
                }
              }
            }
          }
        }
      }
      else {
        { OutputStringStream stream000 = OutputStringStream.newOutputStringStream();

          stream000.nativeStream.print("`" + ((Keyword)(Stella.$TRANSLATOROUTPUTLANGUAGE$.get())) + "' is not a valid case option");
          throw ((StellaException)(StellaException.newStellaException(stream000.theStringReader()).fillInStackTrace()));
        }
      }
      if (((Keyword)(Stella.$TRANSLATOROUTPUTLANGUAGE$.get())) == Stella.KWD_COMMON_LISP) {
        otree = Cons.cons(Stella.internCommonLispSymbol("PROGN"), otree.concatenate(Stella.NIL, Stella.NIL));
      }
      else if ((((Keyword)(Stella.$TRANSLATOROUTPUTLANGUAGE$.get())) == Stella.KWD_CPP) ||
          ((((Keyword)(Stella.$TRANSLATOROUTPUTLANGUAGE$.get())) == Stella.KWD_CPP_STANDALONE) ||
           ((((Keyword)(Stella.$TRANSLATOROUTPUTLANGUAGE$.get())) == Stella.KWD_JAVA) ||
            (((Keyword)(Stella.$TRANSLATOROUTPUTLANGUAGE$.get())) == Stella.KWD_IDL)))) {
      }
      else {
        { OutputStringStream stream001 = OutputStringStream.newOutputStringStream();

          stream001.nativeStream.print("`" + ((Keyword)(Stella.$TRANSLATOROUTPUTLANGUAGE$.get())) + "' is not a valid case option");
          throw ((StellaException)(StellaException.newStellaException(stream001.theStringReader()).fillInStackTrace()));
        }
      }
      return (otree);
    }
  }