sub events {
    while (@events) {
      my $timeout = $events[-1]->[0] - Time::HiRes::time() ;
      return $timeout if ($timeout > 0.001) ;

      my ($time, $rsub, @args) = @{pop @events} ;
      $rsub->(@args) ;
    } ;
    return 5 ;
  } ;