method
elements dir =
List
.filter
(
fun
ci
->
(
Filename
.dirname ci.cvs_file) = dir)
elements