let
test tst =
let
ctst = compile_filter tst
in
fun
fln
->
ctst (solve_dirname fln)