alias web.parser {
var -s %r = $1-
while ( < isin %r ) {
var -s %r = $left(%r,$calc($pos(%r,<,1) - 1))) $mid(%r,$calc($pos(%r,>,1)))
}
var -s %r = $replace(%r,$chr(32),$chr(0160),$chr(0160) $+ $chr(0160),$chr(0160))
var -s %r = $replace(%r,’,',á,á,ï,ï,é,é,ö,ö,ë,ë,$chr(38) $+ $chr(35) $+ 039 $+ $chr(59),$chr(39),$chr(38) $+ quot $+ $chr(59),$chr(34),$chr(38) $+ amp $+ $chr(59),$chr
(38),”,$chr(34),’,',“,$chr(34))
return %r
}