get=${1:-gli}
while read P; do
	(
	D=`dirname "$P"`
	. mdcd "$D"
	$get "$P"
	)
done