#! /usr/bin/gawk -i

BEGIN {
    FS=";"
}

/^Uptime/ {
    for(i = 1; i <= NF; i++) {
	patsplit($i, HH, /[^[(]+[^ [(]/)
	H = HH[1]
	HEAD[H] = i
	HEADI[i] = H
	print "Column", i, "\"" H "\"" > "/dev/stderr"
    }
    NHEAD = NF
}

function ifV() {
    if (!NF || NF != NHEAD) return 0
    for (H in HEAD) VV[H] = $(HEAD[H])
    return 1
}

function ifH(H) {
    if (!NF || NF != NHEAD) return 0
    C = HEAD[H]
    V = $(C)
    return 1
}