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