5 mkid
`find \`pwd\
`/ \( -name _deadcode -a -prune \) -o \
6 -type f -name '*.[chyl]' -print|sed 's;//;/;g'`
8 find .
-name 'CVS' -prune -o -type d
-print |
while read DIR
10 [ "$DIR" != "." ] && ln -f -s `echo "$DIR" | sed 's;/[^/]*;/..;g'`/ID
$DIR/ID