; HTML Chars v1.0 - by entropy 2018
; Replaces HTML characters based on &#N;
; Syntax: $html(&#N;string&#N;)
 
alias html {
  var %a = 1, %b, %n, %c, %total = $1-
  while ($gettok(%total,%a,59)) {
    %b = $v1
    %n = $+(&,$gettok(%b,-1,38))
    if (&#* iswm %n) {
      %c = $remove(%n,$chr(59),$chr(38),$chr(35))
      %total = $replace(%total,%n,$chr(%c))
    }
    inc %a
  }
  return $remove(%total,;)
}