#include <sys/types.h>
#include <sys/stat.h>

int is_dir(f)
ushort f;

{ 
  return S_ISDIR(f);
}