extract_name
sprintf(filename, "%s/INDEX.%s", dir, extract_name(dir));
program = extract_name(argv[0]);