1 files changed, 3 insertions, 1 deletions
diff --git a/src/ics.ml b/src/ics.ml
index 732cbd5..4de1897 100644
--- a/src/ics.ml
+++ b/src/ics.ml
@@ -19,6 +19,8 @@ open CalendarLib
 
 module StringSet = Set.Make (String)
 
+let rng_bound = int_of_float (2. ** 30.) - 1
+
 let to_date = Printer.Calendar.sprint "%Y%m%dT%H%M%S"
 let current_date () = to_date @@ Calendar.now ()
 
@@ -101,5 +103,5 @@ let to_string tz events =
    VERSION:2.0\r\n\
    PRODID:-//ucs//\r\n"
   ^ vtimezone
-  ^ gen_events 0 "" events
+  ^ gen_events (Random.int rng_bound) "" events
   ^ "END:VCALENDAR\r\n"