#!	/bin/csh -f
#
#
foreach i ( ? )
	echo $i
	if( ! -z $i ) then
		perl filter1.pl < $i > ok/$i
	endif
end
