alias over {
  set %replaceitalias $replace($1-,e,3,a,4,o,0,c,$chr(169),r,$chr(174),$chr(63),$chr(191),p,$chr(254),s,$chr(167),i,$chr(238))
  msg $active  $($+(%replaceitalias),™,$chr(32)))
  unset %replaceitalias
}