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
  }
}