.fp 3 CW
.CW
.nr cW \n(.f
.ft P
.nr cE \n(.f
.br
.ft 3
.cs 3 24
\(de	usage: f\&split f\&ile1 f\&ile2
\(de	read standard input and divide it into three parts:
\(de	append any line containing at least one letter
\(de	to f\&ile1, any line containing digits but no 
\(de	letters to f\&ile2, and throw the rest away
count=0 gone=0
while read next
do
	count=\(34`expr $count + 1`\(34
	case \(34$next\(34  in
	*[A-Za-z]*)
		echo  \(34$next\(34  \(fl\(fl $1 ;;
	*[0-9]*)
		echo  \(34$next\(34  \(fl\(fl $2 ;;
	*)
		gone=\(34`expr $gone + 1`\(34
	esac
done
echo \(34$count lines read, $gone thrown away\(34
.br
.cs 3
.ft \n(cE
.ft \n(cW
.CN
