method
subdirs s =
List
.filter (
fun
s
->
Filename
.basename s <>
"CVS"
) (base
#
subdirs s)