hash_stream
for (stream = *hash_stream(path); stream >= 0 ; stream = next) {
extern int *hash_stream(const char *name);
hash = hash_stream(name);