fn stroll {
	if(~ $#* 1)
		cd $1
	pwd
	echo stroll ..
	ls -F | grep '/$' | sed 's/^(.*)\/$/stroll \1/g'
	for(i in `'
	'{ls})
		if(test -f $i)
			echo B $i
}