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