open System

let generateKey keyLen =
    let rand = new Random()
    [1 .. keyLen]
    |> List.map (fun _ ->  char (rand.Next (0, 25)) + 'A')
    |> List.toArray
    |> String.Concat