alias purge {
var %a = 1, %b = $hget(seen,0).item, %oldest.time
while %a <= %b {
if (time.* iswm $hget(seen,%a).item) {
if !%oldest.time || (%oldest.time > $hget(seen,%a).data) {
%oldest.time = $v2
}
}
inc %a
}
while $hfind(seen,%oldest.time,0,w).data {
var %nick = $hget(seen,$hfind(seen,%oldest.time,0,w).data).item
%nick = $gettok(%nick,2,46)
.hdel -w seen $+(*.,%nick)
}
}