Usage: $reppercent(N,string)

Code:
alias reppercent {
  var %a = $$2
  while $regex(perc,%a,/(%(\d+)%)/) {
    %a = $replace(%a,$regml(perc,1),$calc(($regml(perc,2) /100)* $1))
  }
  return %a 
}

Greets