unhex {
var %l = 1, %r
while (%l <= $len($1-)) {
if (!$2) {
if ($mid($1-,%l,2) != 20) %r = %r $+ $chr($base($mid($1-,%l,2),16,10))
else %r = %r $chr($base($mid($1-,%l,2),16,10))
}
else %r = %r $+ $chr($base($mid($1-,%l,2),16,10))
inc %l 2
}
return %r
}