let usage ="Usage : "^Sys.argv.(0)^" [dir1 dir2 ...]"