#	usage: fsplit file1 file2
#	read standard input and divide it into three parts:
#	append any line containing at least one letter
#	to file1, any line containing digits but no 
#	letters to file2, and throw the rest away
count=0 gone=0
while read next
do
	count="`expr $count + 1`"
	case "$next"  in
	*[A-Za-z]*)
		echo  "$next"  >> $1 ;;
	*[0-9]*)
		echo  "$next"  >> $2 ;;
	*)
		gone="`expr $gone + 1`"
	esac
done
echo "$count lines read, $gone thrown away"
