.fp 3 CW
.CW
.nr cW \n(.f
.ft P
.nr cE \n(.f
.br
.ft 3
.cs 3 24
\(de	f\&aster f\&split
trap 'rm temp$$; trap 0; exit' 0 1 2 3 15
start1=0 start2=0
b='[A-Za-z]'
cat \(fl temp$$		\(de read standard input into temp f\&ile
			\(de save original lengths of\& $1, $2
if\& test -s \(34$1\(34; then start1=`wc -l \(fi $1`; f\&i
if\& test -s \(34$2\(34; then start2=`wc -l \(fi $2`; f\&i
grep \(34$b\(34 temp$$ \(fl\(fl $1	\(de lines with letters onto $1
grep -v \(34$b\(34 temp$$ | grep '[0-9]' \(fl\(fl $2
			\(de lines with only numbers onto $2
total=\(34`wc -l \(fi temp$$`\(34
end1=\(34`wc -l \(fi $1`\(34
end2=\(34`wc -l \(fi $2`\(34
lost=\(34`expr $total - \(rg( $end1 - $start1 \(rg) - \(rg( $end2 - $start2 \(rg)`\(34
echo \(34$total read, $lost thrown away\(34
.br
.cs 3
.ft \n(cE
.ft \n(cW
.CN
