#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <stralloc.h>
#include <assert.h>
#include <unistd.h>

void usage (char * progname)
{
	fprintf (stderr, "usage: %s [ -h ] [ -d char ] [ -c num ] [ -o file ] file ...\n", progname);
	exit (1);
}

#define USAGEIF(X) if ((X)) { usage (argv[0]); }

int main(int argc, char ** argv)
{
	char delim = '\t';
	FILE * in = stdin;
	FILE * out = stdout;
	int * cols = NULL;
	int * sums;
	int ncols = 0;
	int i, more, ret, col;
	opterr = 0;
	while (1) {
		int ch = getopt (argc, argv, "ho:d:c:");
		char tmp;
		if (ch == -1) {
			USAGEIF (cols == NULL);
			break;
		}
		switch (ch) {
		case 'h':
			USAGEIF(1);
			break;
		case 'o':
			USAGEIF(out != stdout);
			out = fopen (optarg, "w");
			USAGEIF (out == NULL);
			break;
		case 'd':
			USAGEIF (delim != '\t');
			USAGEIF (strlen (optarg) != 1);
			delim = optarg[0];
			USAGEIF (delim == '\n');
			break;
		case 'c':
			ret = sscanf (optarg, "%d%c", &col, &tmp);
			USAGEIF (ret != 1);
			USAGEIF (col <= 0);
			if (cols) {
				cols = realloc (cols, (ncols+1) * sizeof (int));
			} else {
				cols = malloc (sizeof (int));
			}
			assert (cols);
			cols[ncols] = col;
			ncols++;
			break;
		default:
			USAGEIF(1);
		}
	}
	if (argv[optind]) {
		USAGEIF(argv[optind+1]);
		in = fopen (argv[optind], "r");
		USAGEIF (in == NULL);
	}
	sums = malloc (ncols * sizeof (int));
	assert (sums);
	for (i=0; i<ncols; ++i) {
		sums[i] = 0;
	}
	stralloc line = {0};
	more = 1;
	while (more) {
		char buf[100];
		char * col;
		int cidx, val;
		/* Read one line into stralloc line */
		line.len = 0;
		while (1) {
			if (fgets (buf, 100, in) == NULL) {
				more = 0;
				break;
			}
			stralloc_cats (&line, buf);
			if (line.s[line.len-1] == '\n') {
				break;
			}
		}
		stralloc_0 (&line);
		col = line.s;
		cidx = 1;
		while ((*col)) {
			if (sscanf (col, "%d", &val) == 1) {
				for (i=0; i<ncols; ++i) {
					if (cols[i] == cidx)
						sums[i] += val;
				}
			}
			cidx++;
			while ((*col) && (*col) != delim) {
				col++;
			}
			if ((*col) == 0) {
				break;
			}
			col++;
		}
	}
	stralloc_free (&line);
	for (i=0; i<ncols; ++i) {
		if (i) {
			fprintf (out, "%c", delim);
		}
		fprintf (out, "%d", sums[i]);
	}
	fprintf (out, "\n");
	return 0;
}