long size_of_file(
FILE *file)
{
long position = ftell(file);
fseek(file, 0, SEEK_END);
long file_length = ftell(file);
fseek(file, position, SEEK_SET);
return file_length;
}