#! /usr/bin/awk -f

BEGIN {
    dt = 300
    for (i=0; i<8; i++) C[i] = 0
    t0 = 0
}

function do_l2() {
    d = t-t0
    if (d < 10*dt) {
	print t0, d, C[0]/d, C[1]/d, C[2]/d, C[3]/d, C[4]/d, C[5]/d, C[6]/d, C[7]/d
    }
    for (i=0; i<8; i++) C[i] = 0
    t0 = t
}

/^H/ {
    t = $2
    if (t > t0+dt) do_l2()
}

END { do_l2() }

/^EI/{
    l2 = strtonum($4)
    for (i=0; i<8; i++) if (and(l2,lshift(1,i))) C[i]++;
}