let ls dirname =
    let _ = dbug_print ("Listing directory : "^dirname)
    in
    let real_dirname = solve_dirname dirname
    in
    let _ = dbug_print ("Real dirname directory : "^real_dirname)
    in
    let array_dir = Sys.readdir real_dirname
    in
    let _ = dbug_print ("Directory listed")
    in
    let list_dir  = Array.to_list array_dir
    in
    let _ = dbug_print_list "Directory listing" list_dir
    in
    List.map (fun x -> 
      dbug_print ("Concatening "^dirname^" with "^x);
      concat dirname x
      )  list_dir