diff --git a/bin/main.ml b/bin/main.ml
index abd1f81..2c6da95 100644
--- a/bin/main.ml
+++ b/bin/main.ml
@@ -58,6 +58,7 @@ let ical2rem ical_files =
           good_rems_acc)
   in
 
+  let good_rems = List.sort (fun a b -> Timedesc.Date.compare b.Remind.date a.Remind.date) good_rems in
   try ListLabels.iter good_rems ~f:(fun rem -> Printf.printf "%s" (Remind.string_of_rem rem))
   with e ->
     Printf.eprintf "Error processing reminders: %s\n" (Printexc.to_string e);