alias obs { 
  var %r,%x 1,%l = $len($1-) 
  while %x <= %l { 
    %r = $calc($asc($mid($1-,%x,1))/2.9+%r) 
    inc %x 
  } 
  return $iif(*0 iswm %r,,$iif(%l == 1 && $1 isalpha,$iif($1 isletter tuvwxyz,4,3),$iif($1 < 10 && $1 isnum,1,$base($int(%r),10,16))))
}