/*
* Triggered with /testspeed
* $key1: 62 ms - $key2: 31 ms
*/

alias testspeed {
  var %count = 1, %ticks = $ticks, %iterations = 1000, %length = 100
  while (%count <= %iterations) {
    noop $key1(%length)
    inc %count
  }
  var %key1_result $calc($ticks - %ticks)

  var %count = 1, %ticks = $ticks
  while (%count <= %iterations) {
    noop $key2(%length)
    inc %count
  }
  var %key2_result $calc($ticks - %ticks)

  echo -a $!key1: %key1_result ms - $!key2: %key2_result ms
}
alias key1 { return $remove($gettok($address(intersys,2),1,46),*!*@) }
alias key2 { return $gettok($ial(intersys).host,1,46) }