integer bads, count, max_bads;
file f;
list l;
real s;
text bad_day, worst_day;

f_affix(f, "/dev/stdin");

max_bads = 0;
count = 0;
bads = 0;
s = 0;

while (f_list(f, l, 0) ^ -1) {
    integer e, i;

    i = 2;
    while (i < 49) {
	e = atoi(l_q_text(l, i));
	if (0 < e) {
	    count += 1;
	    s += atof(l_q_text(l, i - 1));
	    if (max_bads < bads) {
		max_bads = bads;
		worst_day = bad_day;
	    }
	    bads = 0;
	} else {
	    if (!bads) {
		bad_day = l_q_text(l, 0);
	    }
	    bads += 1;
	}
	i += 2;
    }
}

o_text("Averaged ");
o_real(3, s / count);
o_text(" over ");
o_integer(count);
o_text(" readings.\n");

o_text("Longest bad run ");
o_integer(max_bads);
o_text(", started ");
o_text(worst_day);
o_text(".\n");