open Arg
open Scanf
open Printf
open Unix

let argnum = Array.length Sys.argv

let _ = 
    if argnum >= 2 then 
        let _ = mkdir Sys.argv.(1) 0o755 in ()
    else
        Printf.printf "ERR only one argument\n"