public static String implodePathname(Stella_Object filepath) {
    { String file = null;

      if (Stella_Object.safePrimaryType(filepath) == Stella.SGT_STELLA_CONS) {
        { Cons filepath000 = ((Cons)(filepath));

          { int pathLength = filepath000.length();

            file = "";
            { StringWrapper name = null;
              Cons iter000 = ((Cons)(filepath000));
              int n = Stella.NULL_INTEGER;
              int iter001 = 1;
              int upperBound000 = pathLength;
              boolean unboundedP000 = upperBound000 == Stella.NULL_INTEGER;

              for (;(!(iter000 == Stella.NIL)) &&
                        (unboundedP000 ||
                         (iter001 <= upperBound000)); iter000 = iter000.rest, iter001 = iter001 + 1) {
                name = ((StringWrapper)(iter000.value));
                n = iter001;
                if (n == pathLength) {
                  file = file + Stella.helpImplodePathname(name.wrapperValue);
                }
                else {
                  file = file + name.wrapperValue + Stella.directorySeparatorString();
                }
              }
            }
          }
        }
      }
      else {
        file = Stella.helpImplodePathname(((StringWrapper)(filepath)).wrapperValue);
      }
      return (file);
    }
  }