open Sys

let rec ll p =
  try
    if is_directory p then
      let cs = readdir p in
      print_endline p;
      Array.iter (fun d -> ll (Filename.concat p d)) cs
    else if file_exists p then
      print_endline p
  with
  | Sys_error msg -> prerr_endline msg
          
let () =
  Array.iter ll (Array.sub argv 1 (Array.length argv - 1))