On 1:input:*:{
  if ($1 == !degis) {
    var %je = $me , %n = 1, %xc
    while ($mid(%je,%n,1)) {
      if $mid(%je,%n,1) isnum { var %xc %xc $+ $mid(%je,%n,1) }
      inc %n
    }
    .nick $remove(%je,%xc) $+ $rand(%xc,10-100) 
    halt
  }
}

On 1:input:*:{
  if ($1 == !degis) {
    var %je = $me , %n = -1, %xc
    while ($mid(%je,%n)) {
      if $mid(%je,%n) isnum { var %xc $mid(%je,%n) }
      dec %n
    }
    if %xc {
      .nick $remove(%je,%xc) $+ $rand(10,100)
    }
    halt
  }
}