1*6f2cbaf6Schristos{ 2*6f2cbaf6Schristos n = split ($0, x, /[ ]+/) 3*6f2cbaf6Schristos print n 4*6f2cbaf6Schristos if (n != NF) 5*6f2cbaf6Schristos print "split botch at ", NR, n, NF 6*6f2cbaf6Schristos for (i=1; i<=n; i++) 7*6f2cbaf6Schristos if ($i != x[i]) 8*6f2cbaf6Schristos print "different element at ", i, x[i], $i 9*6f2cbaf6Schristos} 10