shithub: trueawk

ref: 1c424b1b4d5931f2a4b87b6f0f75827bc53ff9d7
dir: /testdir/t.do/

View raw version 
NF > 0 {
	t = $0
	gsub(/[ \t]+/, "", t)
	n = split($0, y)
	if (n > 0) {
		i = 1
		s = ""
		do {
			s = s $i
		} while (i++ < NF)
	}
	if (s != t)
		print "bad at", NR
}