#!/bin/csh -f
foreach i (K?)
	foreach j  ($i/????)
		pushd $j
		~/bin/scan.pl > log 
		popd
	end
end

