let random_int (start: int, end_: int) =
    let random = Random()
    seq { start .. end_ } |> Seq.map (fun _ -> random.Next(start, end_))