let main() =
     let action p infos =
       let b = not (infos.st_kind = S_DIR || Filename.basename p = "CVS"in
       if b then print_endline pb in
     let errors = ref false in
     let error (e,c,b) =
       errors:= trueprerr_endline (b ^ ": " ^ error_message ein
     Findlib.find error action false max_int [ "." ];;
   handle_unix_error main()