if a=`slistpath`
then
	what $a | grep "^	" > /tmp/foo$$
	echo "static char SCCS_ID[] = \"@(#)" `cat /tmp/foo$$` "\";" 
	rm -f /tmp/foo$$
else
	exit 1
fi
