k = fclose(fd) Integer k; Integer fd;
if ((fd1 = fopen("afo", "w")) < 0) {
error("Can't open %s", "afo");
}
fprintf(fd1, "%d %f %s", 10, 3.1415, "Hello");
fclose(fd1);
if ((fd2 = fopen("afo", "r")) < 0) {
error("Can't open %s", "afo");
}
{a, b, c} = fscanf(fd2, "%d %lf %s");
fclose(fd2);