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

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

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