Code:
on *:INPUT:#: {
  if (/* !iswm $1) {
    msg $target $reverse($1-)
    halt
  }
} 
alias reverse {  
  var %txt  
  var %i = 1  
  while (%i <= $len($1-)) {    
    %txt = $mid($1-,%i,1) $+ %txt    
    inc %i  
  }  
  return %txt
}

while (demi == nub) {
inc %skill
}