let ls dirname =
  let real_dirname = 
    solve_dirname dirname
  in
  let array_dir = 
    Sys.readdir real_dirname
  in
  let list_dir = 
    Array.to_list array_dir
  in
    List.map 
      (fun x -> concat dirname x) 
      list_dir