alias _queue {
  inc %queue.count
  if $timer(.queue) == $null {
	hadd -m queue count 1
	hadd -m queue 1 $1-
	_doqueue 1
  }
  else {
	var %queue.count = $calc($hget(queue,count) + 1)
	hadd -m queue %queue.count $1-
	hadd -m queue count %queue.count
  }
}

alias _doqueue {
  if $hget(queue,$1) != $null {
	.timer.queue -mo 1 $calc((4 - $gettok(3 2 1,$1,32)) * 300) _doqueue $calc($1 + 1) 
	$ifmatch
	.hdel -s queue $1
  } 
  else { hfree queue }
}