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