Initial data commit

Task/Execute-a-system-command/OCaml/execute-a-system-command-2.ocaml

@@ -0,0 +1,14 @@
+#load "unix.cma"
+
+let syscall cmd =
+  let ic, oc = Unix.open_process cmd in
+  let buf = Buffer.create 16 in
+  (try
+     while true do
+       Buffer.add_channel buf ic 1
+     done
+   with End_of_file -> ());
+  let _ = Unix.close_process (ic, oc) in
+  (Buffer.contents buf)
+
+let listing = syscall "ls" ;;