RODAN

on *:text:!rpt*:#: {
  var %b 1
  var %c $numtok($1-,32)
  :sup
  while (%b <= 7) {
    var %thing %thing $read(pkmnfullyevolved.txt)
    inc %b
  }
  msg # $eval($+($,%c,:),2) %thing
  unset %thing
  if (%b <= %c) goto sup
}