on *:TEXT:!a*:#: {
  set %c = 1
  while (%c <= %len($2-)) {
    set %x $mid($2-, $+ %c $+ ,1)
    set %y $asc( $+ %x $+ )
  }
  notice $nick %y
}