1 files changed, 13 insertions, 0 deletions
diff --git a/omkfile/omkfile.ml b/omkfile/omkfile.ml
new file mode 100644
index 0000000..fbc7a6d
--- /dev/null
+++ b/omkfile/omkfile.ml
@@ -0,0 +1,13 @@
+open Arg
+open Scanf
+open Printf
+open Unix
+
+let argnum = Array.length Sys.argv
+
+let _ = 
+    if argnum >= 2 then 
+        let fd = openfile Sys.argv.(1) [Unix.O_RDWR;Unix.O_CREAT] 0o666
+        in close fd
+    else
+        Printf.printf "ERR only one argument\n"
+\ No newline at end of file