#!/bin/sh
# zf  - converts .Z files to .F files.
#	Dennis T. Flaherty (dennisf@Miles.com)

if test $# = 0
then
	echo Usage: zf file.Z ...
	exit 1
fi

for z
do
	b=${z%.Z}
	f=$b.F
	zlen=`wc $z | tee /dev/tty | awk '{print $3}'`
	uncompress $z
	freeze $b
	flen=`wc $f | tee /dev/tty | awk '{print $3}'`
	echo `expr 100 - $flen \* 100 / $zlen`\% savings.
done

