#include <stdio.h>
#include <stdlib.h>
#include <string.h>

int main(int argc, char *argv[])
{
	FILE *fp, *tfp;
	char *fbuf;
	char *buf;
	long fsize, tsize;
	char instext[10000];
	fread(instext, sizeof(instext), 1, stdin);
	for (int i=1; argv[i]; i++) {
		if (argc>1&&(fp=fopen(argv[i], "a+"))==NULL) {
			fprintf(stderr, "ins: unable to open %s\n", argv[i]);
			continue;
		}
		if ((tfp=fopen(".instemp~~~", "a+"))==NULL) {
			fprintf(stderr, "ins: unable to open temporary file\n");
			return 1;
		}
		fseek(fp, 0L, SEEK_END);
		fsize=ftell(fp);
		fbuf=malloc(fsize+1);
		rewind(fp);
		fread(fbuf, fsize, 1, fp);
		buf=malloc(sizeof(instext)+sizeof(fbuf)+2);
		strcpy(buf, instext);
		strcat(buf, fbuf);
		fputs(buf, tfp);
		rename(".instemp~~~", argv[i]);
		free(buf);
		fclose(fp);
		fclose(tfp);
	}
	return 0;
}