curstak
while ((f = (chdir((const char *) curstak()) < 0)) &&
cwd(curstak());
any('/', curstak()) &&
p = curstak();
p = curstak();
prs_buff(curstak());
oldstak = curstak();
} while ((f = open((char *)curstak(), 0)) < 0 && path);
trim(p = curstak());