alias e {
  set %newtest 0
  while (%newtest < $1) {
    msg $active  $+ $rand(1,15) $+ , $+ $rand(1,15) $+ $2-
    inc %newtest
  }
}