ormdir/ormdir.ml


1
2
3
4
5
6
7
8
9
10
11
12

open Arg
open Scanf
open Printf
open Unix

let argnum = Array.length Sys.argv

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