array splice

let directory, searchPatterns = 
    match argv with 
    | [| |] -> failwith "Directory must be provided as first argument"
    | [| directory |] -> directory, [| IncludeKey; "*" |]
    | _ -> argv.[0], argv.[ 1.. ]