path: root/testsuite/tests/lib-unix/common/cmdline_prog.ml

let () =
  for i = 1 to (Array.length Sys.argv) - 1 do
    Printf.printf "%s\n" Sys.argv.(i)
  done