1*23f24377SWarner Losh{ 2*23f24377SWarner Loshfor (i=1; i <= NF; i++) 3*23f24377SWarner Losh if ($i ~ /^[a-z]+$/) { 4*23f24377SWarner Losh print $i " is alphabetic" 5*23f24377SWarner Losh break 6*23f24377SWarner Losh } 7*23f24377SWarner Losh} 8