BEGIN {
	FPAT = "[^,]*"

}

{
	if (x) NF
	for (i = 1; i <= 4; ++i)
		print i, $i
}