Define generic delegate type with F#

Test.fsx

> defineGenericDelegate [| typeof<Collections.Generic.IDictionary<string, obj>>; typeof<Threading.Tasks.Task> |];;
val it : Type =
  System.Func`2[System.Collections.Generic.IDictionary`2[System.String,System.Object],System.Thread
ing.Tasks.Task]

Utils.fs

module Utils =
    open System

    let defineGenericDelegate (parameters:Type[]) =
        match parameters.Length with
        |  1 -> typeof<Func<_>>.GetGenericTypeDefinition().MakeGenericType(parameters)
        |  2 -> typeof<Func<_,_>>.GetGenericTypeDefinition().MakeGenericType(parameters)
        |  3 -> typeof<Func<_,_,_>>.GetGenericTypeDefinition().MakeGenericType(parameters)
        |  4 -> typeof<Func<_,_,_,_>>.GetGenericTypeDefinition().MakeGenericType(parameters)
        |  5 -> typeof<Func<_,_,_,_,_>>.GetGenericTypeDefinition().MakeGenericType(parameters)
        |  6 -> typeof<Func<_,_,_,_,_,_>>.GetGenericTypeDefinition().MakeGenericType(parameters)
        |  7 -> typeof<Func<_,_,_,_,_,_,_>>.GetGenericTypeDefinition().MakeGenericType(parameters)
        |  8 -> typeof<Func<_,_,_,_,_,_,_,_>>.GetGenericTypeDefinition().MakeGenericType(parameters)
        |  9 -> typeof<Func<_,_,_,_,_,_,_,_,_>>.GetGenericTypeDefinition().MakeGenericType(parameters)
        | 10 -> typeof<Func<_,_,_,_,_,_,_,_,_,_>>.GetGenericTypeDefinition().MakeGenericType(parameters)
        | _ -> failwith "Too many parameters"