length($0) > 72	{ print "Line", NR, "too long:", substr($0,1,60) }