$when += 0.001 while exists $calendar{$when};
[download]

The point was to keep the events in the right order. Depending on the density of the events, you can easily schedule an event to a completely different time when adding 1. Adding rand .05 would be another option.

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,
[download]