alias obs {
  var %a,%b 1,%c,%d,%e $len($1),%f
  while %b <= %e {
    %a = $calc($asc($mid($1,%b,1))/2.9+%a)
    inc %b
  }
  %a = $int(%a) $+ .
  %e = $iif($right(%e,1),$v1,9)
  %b = 1
  while %b <= $len(%a) {
    %d = $mid(%a,%b,%e)
    while %d {
      %f = $iif($calc(%d % 16) > 9,$chr($calc(55+$v1)),$v1) $+ %f
      %d = $int($calc(%d /16))
    }
    %c = %c $+ %f
    inc %b %e
  }
  return %c
}