let du fln_lst = 
    let du_aux (sz, lst) fln = 
      let st = stat fln
      in
      (size_add sz st.size, (fln, st.size) :: lst)
    in
    List.fold_left 
    ( fun (accu : size * (filename * size) list) fln -> find True fln du_aux accu ) 
    (B 0.0, [])
    fln_lst