RosettaCodeData/Task/Program-name/OCaml/program-name.ml

4 lines
75 B
OCaml

let () =
print_endline Sys.executable_name;
print_endline Sys.argv.(0)