if (fclose (f)) { fprintf (stderr, "Problems closing a file\n"); perror ("close"); }
if (fclose (f)) err (1, "close");
efclose (FILE *f){     if (fclose (f)) {	  fprintf (stderr, "Problems closing a file\n");	  perror ("close");     }}